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On n'est jamais si bien servi que par soi-même... 
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..Creez Votre propre micro-serveur sur Thomson. 
FIL vous ouvre les portes de la télématique La Mallette Communication [ DORE NT DS — 
avec la Mallette Communication: 2 logiciels 695 F* Pour obtenir des renseignements 
Micro Serveur : | complémentaires sur la Mallette 
° La messagerie : Boîtes aux lettres et sur Thomson TO8, TO9, TO9+Disquettes. | Communication, retournez ce bon à: 
petites annonces pour 98 abonnés. | FIL - Tour Gallieni II - 36, avenue Gallieni, 
e Le journal: 85 écrans consécutifs à créer 93175 Bagnolet Cedex. 
avec un éditeur de structures arborescentes” æ | 
puis à consulter. E | Nom 
e Le téléchargement ®** : De micro à 8 
micro pour échanger programmes, écrans, ES | Fonction 
graphiques ou textes. = 
Praxitèle : Ë | Adresse 
Un logiciel graphique couleur pour éditer 5 9 
de superbes écrans aux normes Télétel. , = = 
** Téléchargement est une marque déposée EMB. FRANCE IMAGE LOGICIEL & Société . # 
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Notre couverture 


Relire directement une disquette 
IBM, en particulier une disquette 
d’un nanoréseau contenant des 
fichiers TO ou MO, est un 
privilège que nous vous offrons. 
Le programme fourni, permet de 
relire le répertoire ou de charger 
un programme d’un nanoréseau. 
Vous êles nombreux à vouloir 
faire passer de l’information d’un 
TO vers un compatible IBM, nous 
travaillons dessus. 

Vous aimez la perspective ? 
Voici un programme éducatif 
pour tester votre vision en 3D. 
Merci de votre confiance et de 
votre assiduité à nous envoyer 
des programmes dont nous 
faisons profiter l'ensemble des 
lecteurs. Continuez, et encore 


bravo ! 
Jacques ELTABET 


ATTENTION : TEO a déménagé. 
Nouvelles coordonnées de la 
rédaction : 

5/7, rue de l'Amiral-Courbet 
94160 Saint-Mandé 
Permanence téléphonique : 
au (1) 43.98.22.22, 

lundi et mercredi 

après-midi uniquement. 


lication de la société social : 10, rue 
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La Grenouille 
Une clé électronique 


La Grenouille est une véritable clé 
électronique qui permet de protéger 
l'ensemble de vos systèmes 
informatiques. La serrure est constituée 
par un programme implanté dans le 
système protégé. Ce programme serrure 
affiche des pavés lumineux à l'écran. La 
Grenouille lit ces informations et affiche 
sur son écran LCD une série de lettres 
que vous tapez au clavier. Ce code est 
interprété par le logiciel serrure. Si le 
code d'entrée est correct, et si la 
Grenouille est identifiée comme pouvant 
accéder au système, l'accès est autorisé. 
Si le code rentré est incorrect, ou si la 
Grenouille n'est pas autorisée à accéder 
au système, l'accès est alors refusé. 

La grenouille n'est pas un dispositif dont 
les fonctions peuvent être simulées par 
un ordinateur. Elle est construite à partir 
d'un microprocesseur masqué, conçu pour 
interdire tout accès à sa mémoire. 
Chaque Grenouille est personnalisée et 
identifiée par le logiciel serrure. 

Prix : 2 200 F. Mustang Technologies, 
144, rue du Théâtre - 75015 Paris. 





MS/Crypt 


A une époque où l'on parle de plus en plus 
de piratage de données informatiques, il 
paraît utile à certains de coder les 
informations sensibles de leurs 
applications. 

MS/Crypt est un logiciel travaillant sous 
MS-D0S. Il permet de crypter et décrypter 
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les fichiers sur disquette ou disque dur. 
Ceux-ci sont alors stockés cryptés sur le 
support magnétique. Les fonctions du 
DOS sont toujours disponibles avec les 
fichiers codés. Mais les fichiers n'auront 
de sens que décodés. 

MS/Crypt fonctionne avec des 
programmes qui utilisent les fonctions 
dites “DOS 2" de MS-DOS. Une partie 
résidente de MS/Crypt prend en charge 
les lectures en temps réél. Il décode les 
données au fur et à mesure des besoins 
du programme d'application (tableur, 
base de donnée, traitement de texte). On 
peut ainsi travailler sur des fichiers 
cryptés de manière totalement 
transparente (clé d'accès mise à part). 
Le programme principal permet de 
déclarer les fichiers qué l'on désire coder 
et de faire des manipulations sur les 
fichiers, codés ou non. Une option 
supplémentaire permet de crypter et 
décrypter un fichier au “Data Encryption 
Standard”. Une autre option permet de 
compacter un fichier suivant l'algorithme 
d'Hoffman (jusqu'à 60% de gain de 
place). Une fonction RAZ remet les 
fichiers à zéro avant effaçage, alors que le 
DOS se contente de l'effacer logiquement. 
4,5 milliards de francs ! C'est l'estimation 
pour 1985 du préjudice subi par les 
entreprises françaises à la suite d'erreurs 
ou de fraudes informatiques. Ça fait 
réfléchir. 

Prix de lancement : environ 2 000 F HT. 
Mustang Technologies, 144, rue du 
Théâtre - 75015 Paris. 


Catalogues 
télématiques 


Les Editions du PSI, désireuses de mieux 
répondre à la demande de leurs lecteurs, 
ont créé un service télématique mis en 
place le 1er mars. Il est donc désormais 
possible d'obtenir sur Minitel le catalogue 
des ouvrages parus, la liste des points de 
vente de PSI en France, ainsi que des 
fiches techniques sur chaque livre. Pour y 
accéder : composer le 3615, suivi de OI, 
puis dé PSI. 


CESTEL est le nom du service télématique 
du CESTA. Didactel en fait partie, il 
propose un annuaire des logiciels 
d'enseignement, enrichi des logiciels de 
formation professionnelle. Cet annuaire 
électronique est multicritère, on peut 
l'interroger de différentes façons. Enfin, 
Didactel offre un glossaire des termes de 
la micro-informatique et de l'EAO. Pour le 
consulter : composer le 3615, puis 
CESTEL. 


Ingénierie 
pédagogique 


La logithèque de l'Association pour 
l'informatique à Marseille (AIM) compte à 
ce jour plus de 300 didacticiels. 
Reprenant les stages d'initiation 
approfondie à l'EAO du CESTA, dont elle 
est l'antenne régionale, elle propose, du 
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11 au 15 mai, un stage intitulé “Vers une 
ingénierie pédagogique”. 

Pour tout renseignement, s'adresser à 
l'AIM, 34, bd Bouès 13003 Marseille. Tél.: 
91.64.85.43 (postes 429 et 428). 


De la qualité 
des logiciels 


L'AFNOR et l'AFCIQ organisent des 
rencontres afin de cerner les techniques 
permettant de maîtriser la qualité des 
logiciels. Après la journée “Sensibilisation 
à la qualité” du 12 mars destinée à 
informer les cadres des entreprises, lé 
stage ‘La qualité du logiciel dans 
l'entreprise” se déroulera les 12, 13 et 14 
mai, au siège AFNOR à Paris-La-Défense. 
La troisième rencontre aurà lieu en 
octobre, du 19 au 22, et fera l'objet d'une 
deuxième session en décembre, du 1er au 
4, à la délégation régionale de Lyon. 

Des précisions peuvent vous être 
communiquées par Mme Chervy, tél. : 
42.91.56.05. 


Vacances 
studieuses 


Informatique et anglais 


L'association Aquitaine service 
linguistique (ASL) propose des séjours en 
Angleterre aux élèves de la 4ème à la 
1ère, pendant les vacances scolaires 
d'été. Il s'agit de stages comportant trois 
heures de cours d'anglais chaque matin, 
en classe de huit élèves maximum, et 
deux heures d'initiation à la micro- 
informatique les après-midi. Au 
programme, l'apprentissage de la 
programmation en Basic et l'initiation au 
traitement de texte (un micro pour deux 
à trois élèves). L'hébergément est assuré 
par des familles (un seul français par 
famille). 

ASL, 15, allée des Genêts - 33127 
Martignas. Tél.: 56.21.40.96. 


Université 
communale 


Pour une culture 
générale de la micro- 
informatique 


Après avoir été l'une des premières villes 
câblées de France, Levallois-Perret s'offre 
une université communale. Cette 
université, ouverte à tous, propose des 
stages d'initiation et de perfectionnement 
en comptabilité, gestion, etc., le tout sur 
micro-ordinateurs fournis par la société 
Donatec. Les “papies et les mamies 
branchés” pourront suivre des cours du 
soir pour s'initier à l'informatique, tandis 
que les plus jeunes pourront suivre ces 
mêmes stages durant les vacances 
scolaires. 


ous fütes très nombreux à participer à 
notre super concours, et quantité de 
bonnes réponses nous sont parvenues. 
Voici les bonnes réponses qu'il fallait trouver. 
D sis 1: Télé-ordinateur est la signification 
e TO. 
Réponse 2: il y a 4 K dans 1000 hex. 
Réponse 3: c'est une version avancée de Pictor 
qui avait été élaborée avant même que le pre- 
mier T9000 n'ait vu le jour. 
Réponse 4: Wizardry, le best-seller sur Apple, 
également connu sous le vocable français de 
RS n'a jamais été adapté à la gamme 












Réponse 5: 80 caractères sur une ligne et 72 

lignes, soit 5760 caractères. 

Réponse 6: le proto du TO7 était muni d'un 

clavier détachable à infra-rouge, bien avant 

l'IBM PC Junior et l'Exelvision. 

Réponse 7: c'est la réponse S, bien que cer- 

Far livres donnent un rayon de l'électron dif- 
érent. 


LOGICOP 


Réflexions 

sur les rapports 
de l'informatique 
et de l'éducation 








LOGICOP est une association à but non 
lucratif, de type coopératif. Dans le cadre 
des réflexions de son équipe 
pluridisciplinaire, elle a fait porter ses 
premières investigations sur le problème 
de la manipulation du code écrit et de 
l'orthographe grammaticale, Tout cela a 
abouti à la conception, réalisation, puis 
production d'un studiciel baptisé 
Conjumat. Comme son nom l'indique, c'est 
un logiciel d'aide à l'acquisition de la 
conjugaison des verbes français. D'autres 
recherches sont en cours portant sur un 
logiciel sur la double articulation 
diachronique et synchronique des mots, 
ainsi que sur un logiciel d'aide à la 
déclinaison du nom latin. 

Pour tout renseignement, LOGICOP, IME, 
65710 Campan. 


Appel simplifié 


Depuis le 16 mars 1987, les numéros 
d'appel téléphoniques des accès indirects 
de Transpac, synchrones et asynchrones, 
sont ramenés de 8 à 4 chiffres. Pour se 
connecter, il suffit de composer 3600 
pour les entrées PAD 1200 bits, 3601 
pour les entrées PAD 300 bits, et 3602 
pour les entrées X32 4800/2400 bits. 
Qu'on se le dise! 


Infographie 
pour fous 


A l'initiative de deux jeunes 
professionnels de la création graphique 
sur ordinateur, Luc Besnier et Laurent 
Rousseau, le ‘Cours La Palette” a ouvert 
ses portes le 2 mars 1987. Le cours 
s'adresse aux étudiants des écoles d'art, 


SUPER-CONCOURS TEO 
Réponses et résultats 
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Réponse 8: une Eprom 2716 contient 16 K 
bits, soit 2048 octets. 

Réponse 9: c'est un Efcis 6809 qui travaille 
dans votre Thomson. 

Réponse 10: Master Control Program est la 
malfaisante entité qui empêche le système de 
vivre sa vie dans le film TRON. 

Les lettres à trouver étaient donc: 
AINORRSSTT 

La première question subsidiaire consistait à 
retrouver le mot formé par ces lettres : TRAN- 
SISTOR. 

Le nombre de cassettes représentées sur la 
photo de la seconde question subsidiaire était 
de 224. 

Le gagnant du TO9 est M. Christian Lemaire, 
de Boulogne-sur-Mer. Il recevra un TO9 archi- 
complet (moniteur, souris, manette, etc.) et 
une imprimante FUJI. 

Nous félicitons également les 99 autres ga- 
gnants qui recevront chacun un lot. 


comme aux professionnels des métiers 
d'art désireux de posséder un nouvel 
atout de création. La formation conseillée 
est de dix heures. Elle se fait par groupe 
de six personnes maximum, et däns ce 
cas, le tarif horaire est de 50 F. 

La volonté d'un faible coût pour les 
participants a justifié le choix du matériel 
Thornson, des TO9 et TO7 fournis par 
l'UFCV, qui autorise 4 000 couleurs, 
l'incrustation vidéo, la digitalisation, 
l'exploitation des logiciels graphiques et 
d'animation, en particulier Colorpaint. 
Pour tout renseignement, téléphoner au 
45.57.93.45. 


Interface Télévision, 
marque PRINTEL. 


Le moniteur de votre micro-ordinateur 
peut se transformer en poste de 
télévision grâce à ce syntoniseur. Il peut 
recevoir des émissions PAL ou du SECAM 
sur trois canaux: VHF bande |, VHF bande 
Ill et UHF bande IV-V. On peut mettre 
seize programmes en mémoire. La sortie 
s'effectue au choix en vidéocomposite ou 
en RVB. Une prise péritélévision permet 
l'entrée du décodeur Canal+, d'Antiope, 
d'un micro-ordinateur ou d'une caméra. 
La qualité de l'image reçue est bonne. Il 
est toutefois dommage que l'on ne puisse 
pas connaître là fréquence pendant la 
recherche d'une station. 

Un bon produit, qui vous permet de 
regarder la télévision, si vous en avez le 
temps entre deux programmes, pour pas 
trop cher, surtout si l'on considère la 
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différence de prix entre un téléviseur 

SECAM et un PAL/SECAM. 

Distribué, entre autres, par Ordividuel 
pour environ 1 400F, cordon de liaison 
péritel compris. 





L'interface Multipéri 
CGV 


Le boîtier Muitipéri CGV, comme son nom 
l'indique, sert à relier plusieurs sources 
vidéo à un seul téléviseur, ou moniteur, 
par l'intermédiaire d'un câble 
péritélévision (norme SCART NF 92250). 
Trois touches correspondant à trois fiches 
permettent de sélectionner la source 
vidéo désirée: magnétoscope, décodeur 
Canal+ ou Antiope, vidéo-disques, micro- 
ordinateur. Une quatrième prise est reliée 
à la prise n°3 lorsque celle-ci n'est pas 
sélectionnée. Elle permet de connecter un 
décodeur Canal+, par exemple, soit à la 
télévision, soit à votre magnétoscope. 
Vous pourrez ainsi enregistrer Canal+ et 
regarder une autre chaîne sans manipuler 
de câble. Pour ceux qui besoin de plus 
d'entrées on peut connecter les Multipéri 
CGV en cascade. 

Produit en France par CGV, le boîtier 
Muitipéri est distribué, entre autres, par 
Ordividuel, pour environ 750 F. 
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Nouvelle équation 
CADRE + FIL — 
CABLE 


L'équation peut paraître bizarre au 
premier abord, mais lorsque l'on sait que 
Cadreest la société qui distribue les 
produits Infogrames, et que FIL assurait 
déjà la diffusion de ses propres produits 
ainsi que ceux d'autres éditeurs, on a un 
début d'explication. En outre, il ne faut 
pas confondre éditeur et distributeurs, 
même si certaines sociétés cumulent les 
deux fonctions. Jusqu'à présent, la 
plupart des éditeurs avaient du mal à 
faire distribuer leurs produits. Certains 
avaient d'ailleurs déjà fait appel aux deux 
grands, Infogrames par le biais de Cadre, 
et la branche diffusion de FIL. Une étape 
supplémentaire a été franchie. Trouvant 
qu'aucun d'eux n'était assez grand pour 
rivaliser avec les grands Européens — 
Anglais et Allemands essentiellement — 
ils ont créé une nouvelle structure de 
distribution. Mettant à profit le meilleur 
des compétences de Cadre et de FIL, ils 
constituent ainsi un réseau de 
distribution plus efficace et plus rentable. 
Pour bien montrer que l'on va vivre en 
bonne entente, on l'appelle CABLE, ce qui 
rapelle à la fois CADRE et un gros FIL (1). 


De HL en aiguille 


FIL a pris une participation majoritaire 
dans CADRE et en a plus que doublé les 
moyens commerciaux et administratifs 
par l'adjonction de ses propres équipes 
pour constituer CABLE. Mais la société 
est ouverte à tout les éditeurs français et 
à une seléction d'éditeurs étrangers 
disposant de catalogues de produits haut 
de gamme. Pour l'instant, FIL, 
Infogrames, Ere Informatique, Cobra Soft, 


Free Game Blot, SoftHawk et Micro Prose, 


ont décidé de confier la distribution 
exclusive de leurs produits à CABLE. Ce 
réseau représentera alors plus des deux 
tiers du logiciel grand public français, soit 
plus du tiers du marché français total. 
La S.A., d'un capital de 250 000F, 
démarre avec 2 000 m2 de stocks à 
l'adresse du siège, des entrepôts 
secondaires à Paris et dans la région 
niçoise, une équipe de plus de trente 
personnes et un service télématique qui 
assumera le suivi complet de chaque 
client. Le chiffre d'affaires prévisionnel 
est de plus de 100 millions de francs. 


Infogrames 


Infogrames a été créée en 1983 par 
Christophe Sapet et Bruno Bonnell. 
Depuis, avec un effectif de 85 personnes, 
elle est devenue la plus importante 
structure européenne d'édition de 
logiciels grand public intégrant la création 
et la production. Vingt-cinq pour cent de 
son chiffre d'affaires sont réalisés à 
l'exportation. En 1987, les 
développements se feront surtout sur : 
Thomson, Amstrad, PC compatibles, Atari 


Ô 


De gauche à droite, Em- 
manuel Viau (Ere Informa- 
fique), Francis Blot (Free 
Game Blot), Bruno Bonnell 
(rome), François | - 
ble Sabu {iogrmes) | 
rames, 

et Bertrand eus (Co- 
bra Soft) à la conférence 

de presse du 8 avril 1987, 
au Press Club. 


et Commodore. Plus de 100 titres 
composent la gamme: 80% de logiciels de 
jeux, aventure ou simulation (Les 
passagers du vent, L'Affaire...) et 20% de 
logiciels éducatifs, utilitaires ou 
professionnels. Ses objectifs ont été 
étendus à la télématique par la création 
en 1986 d'une filiale centre serveur, 
OTELO, employant 17 personnes. 


FIL 


En deux ans de temps, France Image 
Logiciel est devenu le premier éditeur 
français de logiciels. Tout en accueillant 
les auteurs extérieurs pour la création de 
jeux, FIL développe également en interne 
des logiciels professionnels grâce à son 
équipe. Avec un catalogue de plus de 100 
titres disponibles sur les micro- 
ordinateurs Thomson, Amstrad, 
Commodore, Atari, Apple, IBM PC et 
compatibles, FIL couvre le jeu (Super 
Tennis, Mission en Rafales, etc.), l'éducatif 
(Conte, Bingo Réseau, etc.), la 
productivité personnelle (Colorcalc+, 
Portefeuille Boursier, etc.), la 
programmation (Prolog, etc.), le 
professionnel (Practi). FIl adapte aussi 
des best-sellers étrangers (Monopoly, 
Microscrabble, Vol Solo, etc.). 


Cobra-Soft 


En février 1984, Bertrand Brocard et 
Gilles Bertin créent la société COBRA 
SOFT. Cette société comprend six 
personnes à temps plein. En juillet 1986, 
Infogrames s'associe à l'expansion de 
COBRA SOFT au travers d'une prise de 
prrtopabne * 

s logiciels COBRA SOFT sont divisés en 
collections : la collection “Meurtres” dont 
font partie “Meurtre à grande vitesse”, 
“Meurtres sur l'Atlantique” et le nouveau 
“Meurtres en série”. D'autres collections 
regroupent éducatifs, utilitaires, jeux de 
réflexion, jeux d'arcades et Wargames 
po lesquels figure le célèbre HMS 

obra. 


ERE informatique 


Créée en juin 1983, Ere Informatique est 
aujourd'hui un des leaders français sur 
marché de la micro-informatique familiale. 
Une politique d'auteur et d'ouverture vers 
l'étranger lui permet de compter de 
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nombreux Hits à son palmarès : “Mission 
Delta”, “Macadam Bumper”, “Crafton et 
Xunk”, etc. La créativité est le mot clef de 
cette société : preuve en est l'opération 
OXPHAR montée en collaboration avec la 
compagnie théâtrale de la Manicle du 
Havre : une pièce de théâtre associée à un 
logiciel réalisé par ERE (création en avril 
1987). 


Free Game Blot 


Passion de Francis Blot, l'informatique, 
donna naissance en 1984 à la société 
d'édition FREE GAME BLOT. L'idée de 
départ était de proposer des jeux, en 
alternative à la fonction “calcul” des 
micro-ordinateurs. 1986 sera une année 
clé avec des logiciels éducatifs pour les 
micro Thomson. La distribution sera 
désormais assurée par FIL. “Blue War”, 
simulation de bataille marine à bord d'un 
sous-marin, sera le hit de la société, ce 
qui confortera son idée de développer le 
concept de simulation et d'arcade. Free 
Game Blot s'ouvre à l'export en 1987 
avec les sociétés Olivetti en Italie, US Gold 
en Europe (sauf la France), et Epyx aux 
Etats-Unis. 


Micro Prose 


Micro Prose ne considère pas ses logiciels 
comme des jeux mais comme des 
programmes de simulation s'adressant à 
tout public. Les créations sont testées par 
des professionnels de l'aviation ou de la 
marine. Les best-sellers sont “Solo 
Flight”, “Silent Service”, “F-15 Strike 
Eagle”, “Gunship”, “Acrojet”. 

En janvier dernier, Microprose a décidé de 
confier entièrement à Fil la distribution 
de ses produits en France. 


SoftHawk 


SoftHawk est une jeune société 
puisqu'elle n'existe que depuis le 1er 
novembre 1986. Elle a décidé de n'éditer 
que des produits de qualité. D'où une 
production réduite, “Big Band” (un 
Thriller), “Compacmove” (animation 
d'images) et “Incantation” (un jeu 
d'aventure). Dans les produits à venir, on 
trouve : “Dwarf”, “Cybor”, “Générateur de 
système expert” (début juin). 

CABLE : 98, rue Hippolyte Kahn - 69100 
Villeurbanne 
































CHRONIQUES 


PC Météo mobile 





Par 
La météo sur place 
Media météo, département moniteurs. Un TO9 ainsi qu'une palette Si, selon l'adage, “il fait toujours beau 
de la société CSTI, a conçu a te Le traitement Les quelque part”, cette réalisation 
eo. Pour le premier, ces technologique infléchit, peut-être, les 
avec le concours de la surtout son aisance face à l'incrustation caprices + temps. pe le quelque 


Météorologie nationale et d'images qui a séduit. Les cartes météo, part soit précisément là où on l'emploie. 


de Thomson Audio Vidéo ar is Fr 2e re per HSRRIeUr CSTI : (1) 43.87.65.87. 
véhicule, se trouve le termina 38 
un véhicule pour obtenir en Météotel qui reçoit toutes les demi- 


temps réel et sur un lieu heures l'image satellite permettant 


déterminé la prévision du d'assister à l'évolution des masses 
nuageuses pendant la journée. L'image 


temps, plus fiable, on s'en des dix radars de la Météorologie 
doute, que celle dispensée nationale donne toutes les quinze 


par les radios, même minutes la localisation et l'intensité des 
8 précipitations en cours. Tout cela permet 


locales, et surtout la télé. de prévoir un chapiteau pour certaines 
C manifestations, et de le monter au bon 
: ; , moment, juste avant l'ondée. 

æ ‘est Michel Chevalet, de TF1, qui a La surveillance des intempéries est 
pris l'initiative de ce PC Météo mobile. Et particulièrement utile dans les domaines 
depuis, au Monte Carlo et au Paris-Dakar où les conditions météorologiques sont 
(les rallyes), à Roland Garros, ou même au déterminantes : travaux publics, 
dernier salon de l'agriculture, le PC météo transports, agriculture, etc. Le système 
mobile, déclaré fiable à 98 %, visualise les  Météotel permet alors une planification 
images satellite et radar grâce à deux de certaines opérations. 





251, bd Raspail, 75014 Paris. M° Raspail, Tél : 43.21.54.45 l'es espace le plus 


50, rue de Richelieu, 75001 Paris. Tél : 42.96.93.95 I 
Métro Palais-Royal. Du lundi au samedi de 9h30 à 19h. micro de Paris ! 


D. Disquerte DE L’INITIATION AU PROFESSIONNEL ! Prix spéciaux 


K : Cartouche collectivités-écoles 


e Tuner TV 1590F CALE TX (0) LR 
CR el LEE TT) 2490F CR ACE TAC AT (0710) LL ALT 2 
PROMOTIONS e Extension manette 160F 
e imp. couleur Okimate 20 2 990 F EDUCATIFS 
AA ET 0e] TIRE ES « Animalix (C) 249F 

121) 4 CReTLCE CC CE Ce) 195F 
ET PROFESSIONNELLES e L'Affaire Sydney (C/D) 195/249 F Dictée Electronique (C) 160 F 

e Airbus (K) 295 F Logo (K) 790 F 

CR: 117409) 390 F LOC LR Ce71»)) 299 F 
Contrôle aérien (K) 390 F LIU: TETE LECTURE (071 9)) 249/390 F 
Dieux du stade 2 (C/D) 160/195 F COLLE ET CIUES (071 »)] 249/390 F 
LT UE TIR Ce) 160F CITE: ETS EURE (e715)) PZCIKE 2 
Green beret (C/D) 145/195 F COUTURE ETS ET TEX (074) 249/390 F 
LEE U TT: CCE (071 »)] 195/249 F 
AOTIET CA (7/0) 160/220 F UTILITAIRES 
OT CRE UIECTX (074) 160/220 F CR CET CET CCE (e71 »)] 390/490 F 
LT) A(e710)) 175/225 F e Colorcaic (K) CL'S 
CeCT ENT CET UAN (071 »)) PL CIPTTE 2 e Colorpaint (K) 590 F 
Coffret TELETEL . ETS IX (071) 245/295 F Che) C1 ICE (»)) 990 F 
Lecteur disk 320 KO 5 .. # LETTRE TT LE (071 »)] 299 F e Mulitiplan TO8 CL'E2S 
Lecteur disk 320 TO9 CRE TTL EE (71°) 139/220 F e Facturation (D) LU 'ES 
Lecteur disk 640 TO 3 ,: CRETE 1010) CX (071 »)] 195/245 F CRT TETE LE (9) 690 F 
Moniteur monoch. CRT 17, A (071) 160/195 F CRT (»)] 990 F 
Moniteur couleur Haute résoluiion CRT UCT: CON (e71»)] 195/249 F CRTC UC CE (9) 590 F 
Imprimante courrier 80 colonnes CRT TE CT LCR Ce] ‘ £ 195 F e Studio + colorpaint (K) LS 
Imprimante impact 40 colonnes CAE LUCE (e710)) 195/249 F CRT STATUTS (0) 


| 
EE 
BON DE COMMANDE à adresser à VIDEOSHOP, B.P. 105 - 75749 PARIS Cedex 15 


| NOM Je règle par Désignation des articles demandés 


| Cc B i 
| PRENOM [a] ancaire D CCP 
ADRESSE DEMANDE DE DOCUMENTATION 


PÉRIPHÉRIQUES 
e Extension M05 
e Extension incrustation 
| e Ext. 16 KO T07 
Ext. 64 KO TO7 
Ext. 256 KO TO8 
Souris 
Contrôleur communication 














È É Fra de port a: {Logiciels 
æ 
«CODE POSTAL Je joins 3 timbres à 2,20 F pour frais d'envoi TOTALE EETE Eueoce’ 


VILLE Je possède un micro de type 














CHRONIQUES 





Simone, la tortue 
LOEGO 


A. collège de Vergi, les 
jeunes ne manquent pas 
d'esprit d'entreprise. 
Regroupés au sein de 
l'association coopérative 
de l'atelier E.M.T., ils 
travaillent en pédagogie 
Freynet aussi bien sur des 
projets de mécanique, 
d’agro-alimentaire, que de 
publicité et, bien sûr, de 
micro-informatique. 


L.. équipement en matériel 
informatique (deux TO7, un TO7-70 et un 
TOB) ne doit rien au plan IPT. Un premier 
projet d'action éducative subventionné 
par l'ANVAR leur a permis de se procurer 
les TO7. Leur maquette de logiciel EAO, 
sur la lecture de dessin technique, 
réalisée en Basic sur une base 
pédagogique fournie par leur professeur 
d'EMT Alex Lafosse, s'est vue 
récompensée d'une configuration 
complète TO7-70 par la Fondation 
Diderot, avec lecteur de disquettes et 


imprimante. Quant au TO8, c'est le 
produit des ventes d'objets et de 
pâtisseries de l'atelier qui l'a payé. 

Au nombre de leurs réalisations, une 
tapisserie au carton concoctée sur 
ordinateur qui orne la salle à manger 
coopérative, Celle dont ils sont le plus 
fiers, c'est Simone, leur tortue LOEGO. 
Simone, du nom de l'élève Philippe 
Simonot qui en eut l'idée; LOEGO, parce 
que réalisée en briques Lego et pilotée en 
Logo. C'est Alain Caupène, de l'O.D.C.E. de 
la Haute-Vienne, qui reprit complètement 
l'interfaçage et boucla le dossier de la 
tortue, terminée, complétée et 
perfectionnée par une équipe de filles. 
Depuis, Simone a voyagé. Des dossiers de 
fabrication sont partis pour l'Italie, Tahiti, 
la Belgique, la Réunion, l'Angleterre... et 
bien sûr la France où des établissements 
publics et privés, des particuliers et des 
clubs ont passé des commandes. 


Le montage est compréhensible et 
réalisable par des enfants à partir du 
Cours moyen travaillant avec leur maître 
à l'intention de classes plus jeunes. Son 
prix de revient est de 1 500 F. La tortue 
est sans danger puisque alimentée par 
piles, raccordable par exemple au 
contrôleur de communication du micro 
Thomson et pilotable à partir du clavier 
en mode direct ou par programme 


élaboré par les enfants. Simone avancera, 
reculera, pivotera ou abaissera son crayon 
à la demande, bref, elle fera tout ce que 
doit faire une tortue de plancher digne de 
ce nom! 

Simone connaît déjà la consécration, elle a 
récemment été présentée rue d'Ulm, à 
l'Institut de recherches pédagogiques et 
son portrait figure dans “Le Livre des 
robots" édité par le CESTA (Centre 
d'étude des systèmes et des technologies 
avancées). 

Pour ce qui est des jeunes coopérateurs 
du CES de Vergt, ils se tournent 
maintenant vers la télématique, se 
passionnent pour la correspondance 
scolaire assistée par ordinateur via les 
télémessageries pédagogiques, s'ouvrent, 
via le CIEP et le serveur COM'X, sur 
l'Angleterre, et terminent les pages d'une 
base de données documentaires. Bon 
courage à eux et... hasta LOEGO! 


Pour recevoir le dossier de fabrication de 
la tortue, il suffit d'envoyer un chèque de 
100 F, à l'ordre du F.S.E, à Marie-Christine 
et Nathalie, 3ème A, Coopérative de 
l'atelier EMT, Foyer socio-éducatif du 
collège - 24380 Vergt. 
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Disquette vierge 3" 1/2 : 



































22, rue de Montreuil 94300 VINCENNES -— Tél. ; (1) 43.28.22.06 


OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19h 


REVENDEUR OFFICIEL THOMSON 


L'IMPRIMANTE PERSONNELLE 
COULEUR “OKIMATE 20" 
L'OKIMATE 20 est la première imprimante per- 
sonnelle dans sa gamme de prix à offrir une 
véritable impression couleur. Une tête d'impres- 
sion à 24 éléments crée plus de 1 00 nuances d'une 

définition et d'une netteté exceptionnelles. 


OT09 “+" + moniteur monocrome 















ou T09" + 






































D okimate 20 spéciale thomson... 





















Livré avec logiciel d'exploitation pour TO8, TO9 
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ln) Cette interface vous permet de lai 


manence trois appareils utilisant la prise péritel. 
interface multipéri 











+ imprimante ........... 





8990F 




















CO] ext. 16K (T07) . 








C] magnétophone M05 


isser brancher en per- [] mangétophone T7-8-9 
câble imprimante M6-T8-9-9"+" 
câble imprimante M5-T7 


INTERFACE T.V. 




































































ext. 256K (TO8)..... 
Cl'ext. 64K (T07-70)..... 
























CO TO8 + monit. coul. + lect. disg. 
CO TO8 + monit. monoc. + lect. disq. & 
TO8 + lect. disg. + raccord T.V. . 

















[ àl'unité., 
Op pe {a0D) © joystick magnum 149F 
D à l'unité j 
© par10 Des boîtes géniales pour ranger vos supports. 
Cassettes vierges C20 © pour disquettes 5” 1/4.................... 180F 
D pars pour disquettes 3" et 3° 1/2.. 160 F Cette interface va cous permettre de transformer votre moniteur couleur en T.V. 
D par10 [ pour cassettes... 89 F ee DV Se PAR CR Nr OUR NS DOS .. 1480F 
LTD C2 AR Re 
K7 : cassette — D7 : disquette — M: cartouche — QD : disquette QDD — M5: M05 — M8: MO5 — T7 : T07-70 — T8 : TO8 — T9: TO9 — T9 +: TO9 + 
Quneaffaireenor .....…. M5-T7 K7 145F Cpédago. gram. ce2 1 tri. M5-6/T7-8 K7 240F 
Cvin sur vin M5- K7 265F Qcolorcalc +........... T8-9+ D7 395F Dlas végas ............. 17-8-9-9+ K7 265F  Cpédago.gram.cmiitri. M5-6/T7-8 K7 240F 
Ocolor pack rh - K7 175F Ocolorpaint . T7-9 M 395F Dllas végas . .… T8-9-9+9 D7 299F  Cjpédago.gram.cmilan. M5-6/T7-8 K7 720F 
Cmeloptica ARE - K7 145F Ocolorpaint ..... . M5 M 395F Chase is TO9 D7 240F  Clpédago.gram.cm21an. M5-6/T7-8 K7 720F 
Odialog. sauterelle ..... - K7 100F COcomptab. génér. fi) . 1 D7 495F Dle5°axe … …. M5-6/17-8-9+ K7 180F Cpédago.gram.em21tri. M5-6/T7-8 K7 240F 
Ocalculatrice .…. . M5 M 195F Dcomptab. génér. ti, . T8-9-9+ D7 795F Ole complot d'ihlun ... M5 K7 125F  Upointbacfrançais ..., T8-9-9+ D7 350F 
Otrap ....…. … M5 M 195F beach head . … M5-6/T7-8 QD 225F Ole millionnaire ........ M5 K7 150F  Clpolitikpoker .......... M5/T7 K7 110F 
EN a LATE M 195F Odemonia ........ … M6/T8-9-9+ 07 220F Ole minotaure … M5-6 K7 140F Egg T8-9-9+ D7 890F 
Dcarnet adresses . . M5 M 275F Odossier boerhaave .. T7-8-9-9+ K7 150F CDitemple de quauhtli …. M5-6/T7-8-9  K7 180F Eee à … M5-6/T7-8-9 K7 495F 
Otyrann ....... ; K7 185F Cdossier boerhaave . M5-6 K7 150F Dlégende ............. T8-9-9+ 07 195F  COprolog . … M5-6 M5 695F 
Otic-tac K7 120F  Ddossierboerhaave ..…… T8-9-9+ D7 199F Peine .… M5-6/77-8-9 K7 150F  Cprolog … T17-8-9-9+ M7 695F 
Dlintox et z0e K7 140F Cduel au colorado ...... M5-6/77-8-9  K7 170F Ccavernes dethenebe .. T8-9-9+ D7 200F  [lpulsar2 .… M5-6/T7-8-9+ K7 140F 
Olvision NES K7 120F Clempire ....... . M5-6/T7-8-9+ K7 160F Cdieux de la glisse .. M6 K7 165F  Urodéo .… T8-9-9+ D7 220F 
_ Djeuxmaître jacques .... M5 K7 100F  Clempire .… T9 D7 240F Ddieuxde la glisse .. T8-9-9+ D7 199F  Crodéo .....… . M5/T7 K7 180F 
Qu [7 7 etes …. M5 K7 100F Centre .… M5-6/T7-8 K7 240F Cdieux de la glisse ...... T7 K7 170F  Crunway2 ... M5-6/T7-8-9 K7 149F 
Cvotre auto . . M5/77 K7 95F Centropie .............. M5-6 K7 150F Odieuxdustade2 ...... M5-6/T7-8-9-9+K7 170F  Crunway2 . T8-9-9+ D7 195F 
_ Osortilèges . TT QD 245F Clentropie … 17-8-9-9+ K7 150F [ou LT ÉPPRAREPENEEES - QD 225F  Clsaphir M5-6/77-8-9  K7 150F 
__ Dthésaurus ..., NAS D7 220F Centropie … T8-9-9+ 07 199F Ddieuxdustade2 . - 07 195F  Csaphir ............... T8-9-9+ 07 245F 
Cleurospace .… T9 D7 275F Cépouvante ............ T9 07 170F Cpassager du vent ...... T8-9-9+ D7 299F  Clsapiens . M5-6/77-8-9+ K7 180F 
Cisuper business .… T9 D7 345F Clerebus .. T8- 07 235F Cpassager du vent ...... M6 K7 299F  [Cjsapiens T7-8-9-9+ D7 220F 
OCA. . . T9 D7 320F EJersbns ses K7 175F Cpassager du vent ..... T7-8-9-9+ K7 299F  Clscriptor T7-8-9-9+ M7 195F 
Cmandragore . M5 K7 265F Dfacturation (fil) D7 795F Dlissage de courbes ...…. M5 K7 120F  Clscriptor … M5-6 M 195F 
Dloritel ......., . M5 K7 395F Dfélonies ........ F K7 160F Dlorann …. M5/T7 K7 160F Usilent service T8-9-9+ 07 195F 
Qfrance-europe . T9 D7 295F Dficheset dossiers ..... T7 D7 395F OM.G.T.+ bactron .….….. M6/T8 K7 160F  Usilentservice ......... M5-6/77-8-9  K7 145F 
Clmon général .......... T9 D7 230F Dficheset dossiers ..... T8 07 395F OM.G.T.+bactron ..... M6/T8 07 199F  Osoleilnoir . M5-6/T7 K7 150F 
space shuttle simulator T9 D7 280F Oflipper .….……. M5-6/T7 K7 140F Cmaddog ............. 8-9-9+ D7 235F  Osoleilnoir T9 D7 220F 
Osirius T9 D7 240F Ofrançais cm°/6° T9 D7 320F Cimaidéeg 5... M5-6/77-8-9 K7 175F  Csoleilnoir ......: T8-9+ D7 220F 
Oscarfinger K7 199F Ofrançais cm”/6° . T9 D7 320F Cmalette prof. (fil) ..... T7-9 D7 595F  Osorcery .............. M5-6/17-8-9 K7 155F 
15 K7 165F Cfrançaisep/ce/cm .... T9 D7 320F Cmalette céation (fil) T7-8-9-9+ 595F  Csorcery SR T8-9-9+ D7 199F 
Ccarnetde santé ....... M5/T7 K7 95F  Cgrandprix500cc M6/T8 K7 180F  Cmalettegestion(fil) ... T8-9-9+ D71295F  Csortilèges ........... M5-6/18-9-9+ K7 199F 
Ctéléphone (apprentis.).. M5/T7 K7 105F Cgrand prix 500 cc T8-9-9+ D7 220F COmeurtre grde vitesse .. M5/T7 K7 180F Osortilèges ............ T8-9-9+ D7 250F 
Deurospace ............ M K7 275F Ographique ............ T8-9-9+ D7 195F Cmeurtre grde vitesse … T8-9-9+ D7 199F  Cjspindizzy . M6/T7-8 K7 160F 
Dfeuvert K7 145F Ographol.+ biorythmes . M5-6/77-8-9  K7 160F Cmeurtre sur l'atlantique T7-8-9-9+ K7 260F Cspindizy .. M6/T8-9-9+  D7 240F 
Dspeedy wonder . K7 195F  Ographol.+biorythmes . T8-9-9+ 07 199F  Cmeurtresurl'atlantique T8-9-9+ D7 220F  Ustatistiques (fil)... T8-9-9+ D7 195F 
Obluewar2 D7 220F Ogreen beret ........... M5-6/77-8-0 K7 145F meurtre en série ...... M5/T7 K7 295F  Cstocks (fil) … . T8-9-9+ 07 795F 
01789... D7 195F  Ogreenberet . T8-9-9+ D7 195F  Clmeurtresensérie ..... T9 D7 299F  Cjstonezone … M5-6/77-8-9  K7 150F 
CF709/:...... K7 185F OH.MS. cobra T9 D7 290F Cminer 2049 .......... M5 M 145F  CJstonezone ............ T8-9-9+ D7 200F 
Cpolitik poker … F4 K7 110F OHMS.cobra …. .… M5-6/7-8-9 K7 290F Cminer 2049 .......... T7-9 en 
Cmonte carlo ........ . M6/T7 KT TDR 0 Mr rence M5-6/77-8-9+  K7 160F  Clmissionenrafale ...... M5-6/77-8-9 © K7 145F  Eeuportest-déeathlon——+90-94 Dr ipsp 
Dcolorcalc + templates . T8-9-9+ D7 595F Chacker . .… T8-9-9+ D7 240F Cmission en rafale ...... T8-9-9+ D7 195F OTNI. . VE sis dei d PRr ds D7 199F 
CISDTMME 2 K7 160F  Cigreenberet . . M5-6/17-8 QD 195F  Clmongénéral ..…........ M5/T7 K7 140F TNT. QD 250F 
Uairattack ..…. K7 199F Dijeu de dame américain T8-9-9+ D7 195F monop, + runw. + tennis OTNT.. ; QD 255F 
[airattack .... D7 240F ÉRRE is cs actere 5-6/T7-8-9 K7 199F + greenberet ........ M5-6/17-8-9 K7 245F Dway oftiger pee . T8-9-9+ D7 225F 
Oairattack D7 220F [karaté T8-9-9+ D7 250F  Clmonopoly ......... . M5-6/T7-8-9  K7 175F  Clwayoftiger . 17-8-9-9+ K7 175F 
Classembleur … M 399F  Clkidkit T8-9-9+ D7 299F  Clmonopoly ............ T8-9-9+ D7 225F Cthreshold.…. . T7-9 M7 145F 
Cassembleur M 399F  Cikungfou M5-6/T7-8-9  K7 150F  Cmultiplan T8-9+ D7 690F threshold M05 M5 145F 
Castérix la potion mag. MS. 6/17-8-9+ K7 195F Ckungfou .... T8-9-9+ D7 200F Coceania ..…. M5/T7 K7 195F Cvaliseéducative ....…. M5/T7 K7 499F 
Clastérix la potion mag. .. T8-9-9+ D7 245F Cil'affaire sydney M5-6/77-8-9 K7 170F Cloceania . …... 18-9-9+ D7 220F  Clvalise éducative T8-9-9+ D7 499F 
Davenger .............. M5-6/T7-8-9  K7 145F Dl'affaire sydney . T8-9-9+ D7 245F  Cn°10 (foot)... . M5-6/T7-8 QD 216F Clvampire ............. M5- VAT 8-9 K7 195F 
Davenger .. … T8-9-9+ D7 195F Cl'affaire veracruz Ep 9 K7 170F Cmonop. + runw + tennis Cvampire .............. T8-9-9 D7 250F 
Clbarry boxing … T8-9-9+ D7 220F O'affaire vera cruz . T8-9-9 07 245F + green beret ......... T8-9-9+ D7 295F  Cjrunwayll (course auto) M5- G/TI/T8 QD 199F 
Obarryboxing ..…...... M5-6/T7-8-9+ K7 140F  Cl'aigled'or ........ M5- Qu 8-9+ K7 180F  Dparagraphe .......... T8 D7 395F  Clvie mortdinos. ........ M5-6/T8-9 K7 160F 
Oblitz …. … T7/109 M 245F  Claigled'or............ T8-9 D7 240F  Cpayelfil) ............. T8-9-9+ D7 795F Clviemortdinosaures . M6-/17-8-9-9+ K7 160F 
Oblitz . M5 M 245F Cévadétapiocatraz MS/T7 K7 165F  Cpédago.calc.ce2 1an. M5-6/T7-8 K7 720F  Cviemortdinosaures ... T8-9-9+ 07 195F 
Oblitz . M5-6/77-8-9 K7 175F  Cllagested'artillac T7-8-9-9+ K7 270F  Cpédago.calc.ce2 1tri. M5-6/T7-8 K7 240F - K7 150F 
Oblitz … .… T8-9-9+ D7 225F Dlageste d'artillac ..... M5-6 K7 270F Cpédago. calc.cm1 1 an. M5-6/77-8 K7 720F 8- D7 220F 
Cchoplifter ÿ .… T7-8-9 M 195F Dla geste d'artillac ..... T8-9-9+ D7 299F Cpédago.calc.cm1 1 tri. M5-6/T7-8 K7 240F Elie arkungiuii : M5-6/77-8-9 K7 145F 
Dcoplifter … M5-6 M 195F Dlalune ......... K7 180F  Cpédago.calc.cm2 1 an. M5-6/T7-8 K7 720F  Cliearkungfull ....... T8-9-9+ 07 195F 
Drcoliseum … M5-6/77-8-9+ K7 140F [la lune .…............. D7 180F  Clpédago.calc.cm2 tri. M5-6/T7-8 K7 240F  Craidsurlamarche .... M5-6/17-8-9-9+K7 145F 
Ocoliseum … T9-9+ D7 240F Cla mine aux diamants .. M5-6/17-8-9 K7 150F  Cpédago.gram.ce2 1 an. M5-6/T7-8 K7 720F supertennis ......... M5-6/T7-8 QD 199F 
Ccolorcale . T7-9 M 295F Dla mine aux diamants .. T8-9-9+ D7 245F bluewar ............. M5-6/T7-8 QD 220F 
Coolorcalc ............. M5-6 M 295F Clbudget familial ....... M5-6/T7-8 QD 210F 
LIVRES 
Cexercices pour MO5............ … 80F  Cmanueltechnique T07/70......... 125F  CMO5 premier programme... Cprofs assistance MO5-T07/70.. IE Cpratique du M05 ................. 
Cexercices pour TO7 .. . 80F [initiation aubasic 07/70 ....... 78,50F  Cgest.de fichiers MO5-T07/70 Cbasie des MO5-T07/70 ........... Cguide pratique de colorcalc. . 
Cbasic DOS du MO5-T07/70 ..125F  Dinitiationaubasic 128 056 prog. sur MO5 ................. 8F C102progr. MO5-T08/T09 O1 face cachée du T07/70 
Cforth, manuel de référence .........125F [initiation auforth ................. basic + 80 rout.sur M05-T07/70 .105F  Cjlapratique du T07/70 ............ ë 
ne Cocher le(s) article(s) désiré(s) ou faites er en une ins liste sur une feuille à part. - Faites le total Li frais d de put (20 F our achats inférieurs à à 500 UE 40 Fd de 500 à 000 F F, 60 F pour tout achat supérieur à 1000F FE 
COMMENT COMMANDER : 80 F pour tout achat supérieur à 2000 F). G= 
Je possède : [] TO7 OO MO5 [ TO7-70 O TO9 O MO06 O TO8 O TO9“+" 25 
NOM : PRÉNOM : TÉL : LL 
ADRESSE : CODE POSTAL : VILLE : Ë 
Mode de paiement : [chèque [] mandat © contre-remboursement (prévoir 20 F de frais) F 


envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 
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SANYO 16 + 


La première impression est agréable devant un appareil 
que la petite taille et une bonne esthétique distinguent 
des clones classiques. C'est pourtant un véritable com- 
patible que les utilitaires Norton ou Compatest recon- 
naissent sans problèmes. 

Cette compacité est due à une bonne intégration de la 
carte mère qui contient bien sûr le microprocesseur, un 
8088-2, dont la vitesse d'horloge est commutable à tout 
momententre 4,77 MHzet8 MHzalliant ainsi compatibili- 
té (en version 4,77) etrapidité (en version 8). La mémoire 
vive de 256 Ko peut être étendue sur cette même carte à 
640 Ko (l'appareil testé avait 512 Ko). Enfin, la carte 
contient les interfaces série et parallèle. 

Sur les trois connecteurs d'extension, l'un est occupé par 
l'interface vidéo qui autorise en standard des liaisons 
monochrome et couleur RGB. Les deux autres positions 
sont à partager suivant les besoins entre des cartes d'au 
plus 10 pouces de long: contrôleur de disque dur, carte 
EGA, etc. || est évident que toutes ne sont pas possibles 
simultanément, au détriment d'utilisations réellement 
professionnelles de ce micro-ordinateur. Pour clore ce 
chapitre des extensions, il faut préciser que l'implanta- 
tion d'une carte à disque dur n'est pas recommandée par 
l'importateur qui préconise son propre disque dur. 

Le clavier AZERTY comporte 84 touches. Le pavé numé- 
rique n'est pas séparé des autres touches et joue de ce 
fait de vilains tours aux habitués de la frappel Notons la 
présence du ventilateur qu'on espère vraiment efficace 
pour justifier son niveau sonore. 

Le Sanyo 16+ est livré avec les dernières versions de 
MS/DOS et du GW/Basic(3.2). 11 faut noter pour les en- 
seignants qu'une version du LSE existe sur cet appareil, 
ce qui l'ouvre à la plupart des logiciels du CNDP. Deux 
logiciels sont livrés avec l'appareil. Il s'agit du traitement 
de texte France-texte et du tableur Unicalc qui ne mar- 
queront ni l'un ni l'autre l'histoire de l'informatique. 

Son prix sera un des arguments de poids puisque la 
version monodisquette revient à moins de 6000 F avec un 
moniteur monochrome, et que la version comportant un 
disque dur 20 Mo revient à environ 10 000 F HT avec un 
moniteur monochrome et à moins de 12000 F HT avecun 
moniteur couleur. Ces deux dernières versions ont un 
bon rapport qualité/prix. 


DYNAMIT PC 16 JR 


Il s'agit du champion des clones au niveau des prix puis- 
qu'il annonce sa première version à moins de 3 000 F HT 
sans le moniteur! L'aspect extérieur est un classique boi- 
tier métallique d'ouverture simple. || propose alors 8 
connecteurs d'extension permettant de bâtir un micro- 
ordinateur adapté à ses besoins suivant les options choi- 
sies. Il faudrait, en effet, parler des Dynamit 16 Jr pour 
rendre compte de l'ensemble des choix possibles. La 
carte mère est soit “Standard” avec un microprocesseur 
8088 à 4,77 MHz, soit “Turbo” avec un microprocesseur 
8088-2 dont la vitesse d'horloge est réglable entre 4,77 
MHz et 8 MHz. Dans les deux cas, la mémoire vive dispo- 
nible est de 512 Ko, extensible à 640 Ko sur la carte mère 
pour un supplément de 340 F. 

La carte contrôleur de disques est prévue pour gérer un 
maximum de 4 lecteurs de disquettes. L'essai a été effec- 
tué avec une configuration de deux lecteurs de dis- 
quettes 360 Ko. Ces drives sont d'origine japonaise et 
possèdent un entrainement direct. Une unité vaut 1 140 F. 
Les autres emplacements peuvent accueillir un contrô- 
leur de disque dur, ou bien encore une carte type Her- 
cules ou EGA. La configuration finale et donc le prix 
seront ainsi adaptés aux besoins ou aux possibilités de 
chacun. 

De 3 000 F, on peut arriver à 15 000 F pour un modèle 
possédant un disque dur de 20 Mo, une carte graphique 
EGA et un moniteur couleur, en passant par une version 
à disque dur 10 Mo à partir de 6 500 F. Pour le clavier, le 
choix se fait entre un 84 touches classique et un 98 
touches intéressant que nous avons pu tester avec satis- 
faction. Le système MS/DOS et le GW/Basic sont en 
option pour 450 F dans leur version 3.2. La constitution 
en kit de ce micro lui laisse beaucoup de liberté d'évolu- 
tion. Le micro-ordinateur ainsi constitué est sans sur- 
prise, et Dynamit le garantit un an, pièces et main-d'oeu- 
vre. Au-delà, alors que c'est souvent le point faible de 
nombreux clones, on annonce une société de mainte- 


nance. 
Dynamit, 54, rue de Dunkerque - 75009 Paris. 






FOX BASE + 
… et mieux pour moins cher 


TEO N°13 - AVRIL 1987 


C'est un système de gestion de bases de données qui sait 
lire et écrire au format dBase 1114 d'Ashton Tate. Un 
habitué de celui-ci pourra sans problèmes y réinvestir 
ses connaissances. Seules quelques petites erreurs de 
Syntaxe autorisées par dBase ne le sont pas ici. Les 
anciens programmes présentant ces défauts (gestion de 
la couleur, passage de paramètres) devront donc être 
corrigés pour tourner avec Fox Base. On y retrouve en 
particulier la ligne d'états indiquant la disquette active et 
l'enregistrement en cours. Les écrans d'aide sontici, bien 
sûr, en français. 

Pour ne pas être qu'une pâle copie, Fox Base propose 
des services supplémentaires. Les variables peuvent être 
à deux dimensions. L'instruction SET RELATION TO 
ADDITIVE est très utile pour établir des relations entre 
fichiers. Il est possible d'ouvrir simultanément48 fichiers 
dont 10 de données et 21 indexés. L'instruction FIND 
intégrée à la commande BROWSE lui donne plus de 
souplesse. FOXBIND permet de regrouper plusieurs fi- 
chiers programme en un seul fichier de procédures. Et 
surtout, Fox Base est plus rapide que son aîné dans 
pratiquement toutes les situations. 

Ces quelques plus méritent qu'on s'intéresse à ce logi- 
ciel, surtout quand on sait que son prix est de moins de 
3 000 F. Une mise au point est à faire à propos du “compi- 
lateur intégré”, et deux faiblesses sont à signaler. La 
première concerne la documentation qui n'est pas un 
exemple de clarté tout le long de ses 300 pages en fran- 
çais. La deuxième, plus gênante, est la nécessité de dis- 
poser d'une version “Run Time” par poste de travail pour 
faire tourner les applications. C'est la contrepartie de la 
pseudo-compilation qui accompagne ce logiciel. Cette 
dernière consiste en fait à crypter le programme source 
pour lui permettre de tenir moins de place et de s'effec- 
tuer plus rapidement. Les fichiers .FOX ainsi créés sont 
dans un état intermédiaire et demandent un pilote pour 
se dérouler. Ce dernier point est un défaut qu'il serait 
souhaitable de corriger dans l'avenir. 

En attendant, une association entre Fox Base et Clipper, 
le meilleur des compilateurs de dBase, constitue un ex- 
cellent outil rapide et performant, et … d'un prix pas trop 
élevé. 


VP-PLANNER 
Un tableur... 456 


Ce logiciel, édité aux Etats-Unis par Paperback Soft- 
ware, est adapté en français par la toute jeune société 
Softissimo dirigée par un ancien de chez... Lotus. Il fait 
partie de ces logiciels que l'on appelle des clones, c'est- 
à-dire capables de faire aussi bien et pour moins cher! 
En fait, ils permettent aux grands outils logiciels de sui- 
vre l'évolution des micro-ordinateurs sur lesquels ils 
tournent. Il est sûr que ce mouvement se poursuivra 
malgré les plaintes pour “apparence et réactions simi- 
laires” qui les accompagnent pour le moment aux Etats- 
Unis. 

Ce tableur a un aspect de déjà vu quand on le découvre 
pour la première fois. I! peut en effet lire sans difficulté 
des fichiers .WKS. Il travaille sur un tableau qui peut 
atteindre 9 999 lignes sur 256 colonnes et utilise la plu- 
part des opérateurs classiques pour ce type d'outils. On 
découvre pourtant avec plaisir que les commandes fonc- 
tionnent tout aussi bien en français. Le tableau de bord 
indique en permanence les touches de fonction disponi- 
bles et le rôle qu'elles peuvent jouer. Il est possible de 
gérer simultanément jusqu'à 6 fenêtres. Ces efforts de 
convivialité du produit sont autant de plus que les non- 





spécialistes apprécieront. 

D'autres particularités plus fondamentales sont à souli- 
gner. VP-Planner gère le code ASCII étendu, c'est-à-dire 
qu'il encadre un tableau avec des traits et non avec des 
“ou des “!”, Il peut imprimer en arrière-plan pendant 
que le travail continue à l'écran. La présence de la com- 
mande BROWSE lui permet de lire et d'écrire dans des 
fichiers dBase. L'existence de macro-commandes rend 
son utilisation assez souple pour les suites répétitives 
d'opérations. Mais, surtout, il possède des fonctions gra- 
phiques et un gestionnaire de base de données. Ce der- 
nier est même assez intéressant puisqu'il peut travailler 
sur 9 999 enregistrements ayant chacun jusqu'à 256 ru- 


PEÉOPE 


briques. || sait faire une recherche multicritère, les tris à 
deux niveaux. || peut également travailler en multidimen- 
sion sur 5 niveaux. 

Le logiciel est proposé sur deux disquettes. La première 
disquette contient le programme lui-même, écrit en 
Forth, non protégé, donc aisément installable sur un 
disque dur. La deuxième disquette contient une série 
d'exemples. La documentation de 250 pages qui l'ac- 
compagne est bien faite, et son prix enfin, 1 500 F HT, est 
l'un des arguments de poids en sa faveur. On peut alors 
lui pardonner certaines lenteurs dans quelques calculs. 
VP-Planner est disponible chez l'importateur : Softissi- 
mo, 13, rue du Caire -75002 PARIS. 


SOFTIFS PUS 


Lo souplesse du tobleur 
La puissance des bases de:données 





NUMERICAL METHOD TOOLBOX 


La boite à outils des 
scientifiques 


IL s'agit d'une nouvelle boîte d'outils Borland Turbo Pas- 
cal, en version anglaise. || contient trois disquettes ainsi 
qu'une documentation claire et précise de 200 pages. 
L'objectif de Philippe Kahn est de permettre aux scienti- 
fiques et aux ingénieurs de tirer le meilleur parti de la 
puissance du PC dans le domaine des mathématiques 
appliquées. L'ensemble est à comparer, dans l'esprit si- 
non encore dans la quantité, aux bibliothèques de sous- 
programmes Fortran existant sur les gros systèmes. 
Les méthodes d'analyse numérique les plus récentes ont 
été utilisées ici pour que les outils soient les plus perfor- 
mants possibles malgré le passage sur des machines 
moins puissantes. Les sources sont évidemment four- 
nies, ce qui permet d'adapter les programmes proposés 
au plus près des besoins. 

Dix modules composent cet ensemble. Chacun propose 
une série de procédures standard. Chacune peut être 
intégrée à ses propres programmes. Des programmes de 
démonstration permettent de mesurer assez simplement 


les possibilités de ces procédures: 

— étude des zéros d'une fonction par dichotomie ou en 
utilisant la méthode de la sécante, celles de Laguerre ou 
de Newton-Hammer pour les polynômes, et de Muller 
pour les fonctions complexes; 

— interpolation par la méthode des polynômes de La- 
guerre ou la méthode parabolique; 

— différentiation; calcul des valeurs approchées des dé- 
rivées; 

— intégration par la méthode des trapèzes, de Simpson 
et de Ramberg; 

— inversion de matrices; 

— calculs des valeurs propres d'une matrice; 

— étude et résolution des équations différentielles avec 
l'étude des valeurs aux bornes. Etude des équations dif- 
férentielles usuelles du deuxième ordre, linéaires ou non: 
— méthode des moindres carrés; 

— transformations de Fourier; 

— apport du graphique pour la méthode des moindres 
carrés et les transformations de Fourier. Ce module né- 
cessite d'avoir le Toolbox graphix pour être utilisé. 
L'utilisation de ces outils demande un certain niveau de 
mathématique, mais des élèves y trouveront intérêt dès la 
classe de seconde. 
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TEO sera le porte-parole de toutes les expériences me- 
nées en classe avec ce nouveau logiciel. Il correspond à 
un nouvel apport de l'informatique au lycée. Pour utiliser 
ces “Numerical Method Toolbox”, il faut disposer d'un 
système M6/DOS à partir de la version 2.0, du Turbo 
Pascal 2.0 ou plus, de 256 Ko de mémoire. Une carte 
graphique est souhaitable sous peine d'appauvrir le pro- 
duit. Le coprocesseur arithmétique 8087 ou 80287 ap- 
porte un plus appréciable à la plupart des applications 
proposées. 

RERO A PER I LR LÉ FER 


YES YOU CAN 


Générateur d'applications 


C'est un générateur d'applications qui permet donc, lo- 
giquement, de créer un logiciel même sans connais- 
sances informatiques. Mais la réalité n'est pas aussi sim- 
ple, il s’agit plutôt d'un outil pour aider le développeur 
même débutant dans son travail. Malgré son nom, ce 
produit est français. || en est aujourd'hui à sa version 3.1. 
Un disque dur est nécessaire pour utiliser ce logiciel. La 
première installation est réalisée sur ce support par le 
programme INSTALL. 

Yes You Can est orienté vers les applications de gestion 
de fichiers. Il autorise un travail simultané sur 6 fichiers 
pouvant chacun atteindre 16 Mo et contenir 24000 carac- 
tères et 100 rubriques par fiche. Chaque masque, c'est-à- 
dire le dessin à l'écran des informations contenues dans 
une fiche, peut utiliser jusqu'à 300 lignes et 80 colonnes. 
Les applications créées avec Yes You Can peuvent gérer 
15 clés d'accès par fichier avec 5 rubriques par clé, et 
autorisent jusqu'à 100 critères de sélection par fichier. 
Le développement d'une application se fait sous le pilo- 
tage de menus successifs assez clairs et avec une aide 
appropriée, toujours disponible par simple appui sur la 
touche F1. Le rôle des touches actives est accessible en 
permanence par appui sur la touche F9. Le menu général 
oriente vers des menus de deuxième niveau. Le généra- 
teur de masques sert à la constitution de menus et de 
grilles de saisie de fiches. Le générateur de fonctions 
contient les outils de gestion de fichiers, ceux d'édition, 
et un générateur d'histogrammes. 

C'est à ce niveau qu'il faut utiliser le langage de pro- 
grammation intégré à Yes You Can. Le maniement des 
quelque 85 macro-instructions n'est pourtant pas à la 
portée du premier venu. L'application ainsi créée est 
exécutable à tout moment ainsi que partie par partie. 
Enfin, des utilitaires permettent, entre autres, d'utiliser le 
DOS sans sortir de l'application en cours. 

Yes You Can a besoin d'un disque dur en plus d'un 
lecteur 360 Ko et de 512 Ko de mémoire vive. Il est vendu 
7 500 F HT pour le module de base, auxquels il faut 
ajouter environ 5 000 F HT pour le compilateur. Des 
modules contenant des pré-applications de gestion ou 
de comptabilité sont également disponibles. || faut enfin 
noter qu'une version Run Time à 900 F HT est nécessaire 
pour faire ensuite tourner les applications créées. Ces 
quelques précisions confirment qu'il s’agit d'un produit 
pour les développeurs. 

Yes You Can est diffusé par YC, 33, rue Galilée - 75116 
PARIS. 


EE ] 
HIGH SCREEN 2 
Générateur d'écrans 


Ce logiciel est un générateur d'écrans qui facilite la ges- 
tion des affichages, des saisies et des fenêtres dans un 
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programme. C'est un outil destiné à aider le développeur 
dans son travail. || y trouvera à la fois un gain detemps et 
une meilleure présentation de ses écrans. 

Les fichiers créés par HS2 sont utilisables dans presque 
tous les langages de programmation tournant sous 
MS/DOS. Ils sont appelables par l'intermédiaire d'un 
programme résident de 30 Ko, AFFICHE.COM, qu'il faut 
penser à mettre en mémoire avec le programme lui- 
même. 

La création d'un écran se fait avec un éditeur pleine page 
qui sait gérer la couleur et le curseur, mais également les 
menus déroulants et les fenêtres à condition de ne pas 
dépasser 26 par page. Les touches peuvent se voir affec- 
ter des fonctions particulières. Les zones de saisie sont 
également gérées en tenant compte du type et des limites 
de la réponse attendue. Enfin, les variables qui contien- 


VISICAD 


Schématique et dessin 
technique 


Ce logiciel se présente comme un outil de schématique 
et de dessin technique, mis au point par une équipe jeune 
et dynamique, LA. Micro. Sa version 1.0, d'uneutilisation 
très simple, a fait partie de la valise I.P.T. des lycées. La 
version 3.0 que nous avons testée s'est nettement enri- 
chie sur le plan performances tout en gardant ses quali- 
tés conviviales. La première mise en route peut toutefois 
être déconcertante pour un non-spécialiste en informa- 
tique. Le bouchon de protection à insérer entre la sortie 
parallèle et le connecteur de l'imprimante impose une 
première manipulation. Le programme d'installation im- 
pose de se plonger dans les caractéristiques de la ma- 
chine que le béotien aura souvent du mal à trouver. || 
suffit de se dire que c'est le seul moment “technique” de 
la mise en oeuvre. 

Le logiciel se présente sur deux disquettes auxquelles il 
est possible d'adjoindre une ou plusieurs autres dis- 
quettes contenant, les unes, des polices de caractère, les 
autres, des bibliothèques de dessins et de schémas de 
base plus ou moins spécialisés. On trouve ainsi des sé- 
ries en informatique, en électronique, en mécanique, en 
architecture, en géographie, etc. 


dront les résultats de ces saisies sont bien évidemment 
gérées. 

Une aide permanente par la touche F10 et une zone de 
commentaires de 4 lignes aident au développement. L'in- 
tégration à un programme se fait ensuite par l'appel d'un 
code d'entrée, suivi du nom de la page et d'un code de 
sortie. Les deux codes sont adaptés au langage de pro- 
grammation utilisé. 

HS2 a besoin de 256 Ko et d'un lecteur de 360 Ko pour 
fonctionner. Des exemples sont fournis avec le pro- 
gramme et aident le développeur pour ses premiers 
écrans. Une documentation assez claire de 160 pages 
accompagne ces deux disquettes. 

High Screen 2 est vendu pour moins de 5 000 F HT par 
PC/SOFT informatique, 34, bd Haussmann - 75009 Paris, 
et BP 1026 -34006 Montpellier. 


Avec ces outils de base, il est assez facile de réaliser sa 
première page où se mêlent textes et dessins au gré de sa 
fantaisie. On devine ainsi rapidement les possibilités de 
ce logiciel dans la réalisation de notices, de plans, de 
documentations plus ou moins techniques, de transpa- 
rents ou encore de cartes commentées. On comprend 
ainsi beaucoup mieux ce que peut être réellement la 
P.A.O, c'est-à-dire la publication assistée par ordina- 
teur. Il n'est pas question de créer ici de véritables livres, 
mais pour une brochure allant jusqu'à 8 pages le travail 
est tout à fait réalisable. C'est très largement suffisant 
pour un journal d'établissement scolaire, un support de 
cours ou des documents de travail pour des élèves. Ceux 
qui ne trouveraient pas suffisamment leur compte dans 
les bibliothèques existantes devront créer leur propre 
base de données graphiques, ce que Visicad sait bien faire. 
Les objets graphiques sont créés soit à partir du clavier, 
soit avec une table à digitaliser qui permet de gagner du 
temps et de la précision. Les objets étant définis sous 
forme vectorielle, ils sont alors prêts à subir de manière 
simple et rapide toutesles transformations géométriques 
classiques. Cette dernière remarque est également vraie 
pour les textes qui peuvent donc aussi être à 65°,par 
exemple, ou subir une symétrie. D'assemblages en im- 
brications successives, la page se construit alors sans 
difficulté majeure, si ce n'est celle de savoir où l'on veut 
arriver. 
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Une documentation bien faite d'une part et une aide 
accessible en permanence d'autre part autorisent un 
presque débutant à utiliser ce logiciel sans l'aide d'un 
spécialiste. Visicad a besoin de 256 Ko de mémoire vive. 
Un disque dur est souhaitable pour un bon fonctionne- 
ment ainsi qu'une carte graphique Hercules ou EGA et 
compatibles. Des périphériques comme une table à digi- 
taliser à l'entrée et une table traçante et/ou une impri- 
mante laser à la sortie permettent d'enrichir les résultats. 
Son prix est d'environ 10000 F TTC. 

Visicad est diffusé par L.A. Micro, 59, avenue Aristide 
Briand -93190 Livry-Gargan. 


Allegro 


(Cedic-Nathan) 

Voici un traitement de texte de plus à mettre au catalogue 
déjà bien fourni des compatibles PC sous MS-DOS. Alle- 
gro est présenté comme un outil professionnel alliant 
simplicité et rapidité de mise en oeuvre. 

Ce produit, écrit en Turbo Pascal, permet les fonctions 
classiques des logiciels du genre avec comme points 
forts la mise à disposition de la totalité de l'écran, l'aide 
en ligne, la consultation de fichiers sur disque pendant 
une session de travail et un artifice permettant le mailing 
(publipostage). || apparaît à l'usage que ce produit ne 
dispose pas de toutes les fonctions connues sur les trai- 
tements de texte classiques. 

En revanche, il permet une prise en main rapide grâce à 
une documentation d'une cinquantaine de pages. 

Bien qu'il soit impossible de citer toutes les fonctions 
disponibles, notons toutefois la fusion de textes, des 
mises en page standard ou programmées, et la redéfini- 
tion des touches de fonction en pavé numérique. Le 
programme est organisé autour d'un menu central. Îl en 
comporte six autres plus un menu d'aide et de présenta- 
tion des principales fonctions et des touches employées. 
Parmi les menus, on trouve la mise à jour de la date, 
l'utilitaire du catalogue des fichiers, le traitement de 
textes, la configuration de l'imprimante et des touches de 
fonction, l'import et l'export de fichiers au format DOS et 
un utilitaire de tri et d'indexation. 

Allegro réalise l'essentiel des fonctions attendues d'un 
traitement de textes. Ce peut être un outil sérieux d'ap- 
prentissage malgré quelques limites comme l'espace gé- 
ré (32 000 caractères) ou les codes d'édition à retenir. 


DORE 


TRAITEMENT 


ER mm 
EM cedic/nathan re 





KDOS 
Pour un Dos convivial 


Il s'agit de l'une des interfaces les plus anciennes avec le 
DOS. C'est un de ces outils qui rend le DOS convivial en 
l'enrichissant d'outils de bureau et de quelques modules 
d'initiation. Il reste simple d'utilisation et fait partie des 
logiciels résidents appelables à tout moment à l'intérieur 
de n'importe quelle application. 

L'appui simultané sur les deux touches SHIFT nous 
plonge dans un premier menu clair, et en français. De là, 
il est possible d'examiner les répertoires, de copier, de 


| supprimer, de visualiser, de rechercher et d'imprimer 


me 


avant de retrouver le programme quitté à l'endroit et en 
l'état laissé. C'est certes classique, mais c'est fonctionnel 
et simple d'utilisation. 

Les outils bureautiques sont au nombre de quatre : la 


| calculette, la gestion d'alarmes pour rappeler un rendez- 
» vous, un bloc-notes qui est loin d'être un traitement de 


texte et une table ASCII. KDOS est accompagné d'une 
documentation simple de 24 pages. Il occupe 36 Ko de 
mémoire. Son prix est de moins de 700 F HT. 

Diffusé par PC/SOFT informatique, 34, bd Haussmann - 
75009 Paris, et BP 1026 - 34006 Montpellier. 





RARE SURF RARE ARRE DA 
TURBO-GAMEWORKS 


À Echecs, bridge et morpion 


Il ne s’agit pas seulement de trois jeux de plus pour PC. 
Ce sont des produits Borland, c'est-à-dire livrés avec les 
sources des programmes tournant sous Turbo Pascal. |Is 
permettent donc beaucoup plus que le simple jeu. On 
peut comprendre comment est bâti un programme d'é- 
checs ou de bridge, et même l'adapter et le transformer. 
La documentation d'une centaine de pages ouvre la voie 
à certaines de ces améliorations. 

Le jeu d'échecs à 6 niveaux possède une série de proprié- 
tés. On peut demander un conseil à l'ordinateur qu s- 
sortit sa réponse d'analyses numériques sur les positic S 
étudiées. On peut échanger à tout moment les rôles ave * 
la machine. On a droit à des essais “pour voir” afin d'ap 

profondir une réflexion, pour la prolonger ou l'annuler. 
Toutes les situations de départ sont autorisées et le 


TEOQ-PC 


joueur peut donc reprendre une fin de partie ou étudier 
des problèmes particuliers. Enfin, les moins courageux 
peuvent regarder l'ordinateur jouer contre lui-même, ce 
qui n'est pas sans intérêt sur le plan de la compréhension 
de la logique de programmation. 

Le jeu de brigde a le même type de souplesse puisqu'il est 
possible de faire jouer l'ordinateur à la place des quatre 
joueurs, mais également comme simple aide à la ré- 
flexion. L'essai a été moins prolongé que pour le module 
d'échecs, car la logique des annonces pratiquées aux 
Etats-Unis n'est pas exactement la même que celle prati- 
quée en France. Cela risque de poser des problèmes 
d'adaptation qui dépassent les seules contraintes de lan- 
gage. 

Le dernier jeu se nomme “GoMoku”, un morpion qui se 
joue sur une grille 19*19 dans laquelle il faut arriver à 
aligner 5 marques. Le plus intéressant est ici encore de 
comprendre la logique de programmation, d'autant plus 
que le problème posé est moins ramifié que les deux 
précédents. 

Cette boîte à outils Turbo-Pascal est encore en version 
anglaise. Elle est diffusée par la société Borland pour 
moins de 700 F TTC. 





AB Club 


Disquette n° 20 


La société AB Soft International a décidé de regrouper 
sur une même disquette les utilitaires les plus appréciés, 
sinon les plus performants, de ses disquettes n°1 à 19. Il 
en coûte ainsi 250 F seulement pour avoir six de ces 
utilitaires qui justifiaient à eux seuls l'achat de l'une des 
précédentes disquettes. 

DOSEDIT permet de conserver en mémoire non seule- 
ment la dernière commande DOS, ce que font très bien 
les touches F1 à F4, mais également les deux, trois ou dix 
dernières. C'est vraiment utile quand on a le courage de 
prendre de nouvelles habitudes. 

BACKSCROLL permet, lui, de garder en mémoire et 
donc de rappeler et d'imprimer les 28 derniers écrans. | 
est d'une première aide pour conserver la meilleure 
courbe ou le meilleur tableau dans un logiciel. 

GETDIR et PARTNER sont deux utilitaires résidents en 
mémoire qui permettent en les associant de faire presque 
tout ce dont le DOS est capable, et ce, en ne perturbant 
pas l'application en cours qui se retrouve intacte et prête 
à continuer dès que ces utilitaires lui rendent la main. À 
eux deux, ils démodent beaucoup leurs prédécesseurs 
pourtant beaucoup plus chers et plus réputés. 
DISKRAM ne se contente pas de savoir créer un disque 
virtuel en mémoire vive, il sait même le faire à tout mo- 
ment sans toucher aux fichiers config.sys et autoexec.- 
bat. Enfin, MSPOOL est l'un de ces utilitaires qui sait faire 
travailler une imprimante en arrière-plan pendant que 
l'utilisateur continue son travail à l'écran. 
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Introduction à l'intelligence 
artificielle sur micro-ordinateur 


de Mike James, chez Eyrolles 


|A. Intelligence Artificielle, ces deux mots résonnent de 
manière un peu magique dans la tête de tous ceux qui 
s'intéressent de près ou de loin à l'informatique. Pour 
certains c'est merveilleux, pour d'autres inquiétant, pour 
d'autres encore c'est un sujet de travail captivant. Il est 
probable que Mikes James est à ranger dans cette der- 
nière catégorie. Il fait partie de ceux qui maîtrisent suffi- 
samment bien le sujet pour en parler en termes clairs et 
précis, parfaitement compréhensibles par le commun 
des mortels. 

Il s'attache tout d'abord à bien préciser l'ensemble des 
facultés dont il faut tenir compte pour pouvoir parler 
d'intelligence : vision et reconnaissance, synthèse vo- 
cale, parole et reconnaissance vocale, compréhension 
du langage et traduction, pensée, raisonnement et réso- 
lution de problèmes. 

Ilétudie ensuite d'une manière plus précise les systèmes 
experts qui montrent comment fonctionne le “raisonne- 
ment” d'un ordinateur issu directement de celui de l'ex- 
pert humain qui l'a préparé. 

Il montre enfin comment les machines sont, ou plutôt 
seront, capables d'apprendre, donc de se construire de 
nouvelles règles à partir de leurs observations. Pour cela, 
il étudie la structure de la mémoire, passant de la mé- 
moire associative, à la mémoire relationnelle, puis aux 
mémoires conceptuelles. Chacune de ces étapes est il- 
lustrée par des exemples relatifs au fonctionnement de 
l'ordinateur. |! étudie ensuite le deuxième élément né- 
cessaire à tout apprentissage, c'est-à-dire l'observation 
qui précède la reconnaissance. Celle des formes tout 
d'abord qui pose beaucoup moins de problèmes que 
celle du langage. La plupart des exemples sont illustrés 
par un petit programme en Basic pour montrer que ces 
concepts sont accessibles à beaucoup plus de monde 
que ce que l'on peut croire de prime abord. 

Sa conclusion nous renvoie sur un deuxième tour de 
spirale avec trois interrogations : “intelligent ou simple- 
ment ingénieux ?”, “peut-on informatiser l'intelligence ?”, 
“l'intelligence artificielle est-elle différente ?”. Au lecteur 
de tenter d'y répondre au travers des lectures complé- 
mentaires qui lui sont proposées en fin de livre. 


Introduction 


à l'INTELLIGENCE 
ARTIFICIELLE 


sur micro-ordinateur 
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FÉCG-FEE 


L'EUROPE el les N.T.I. 


L. commission de la 
communauté européenne 
s'intéresse aux nouvelles 
technologies de l'information 
(N.T.I.) dans lesquelles 
s'inscrivent toutes les 
utilisations de l'informatique 
dans le milieu scolaire. Le rôle 
principal de cette commission 
est de favoriser les échanges 
entre les douze pays de la 
communauté européenne. 


U n des problèmes importants rencontré réside dans 
l'utilisation des neuf langues utilisées dans ces douze 
pays. D'excellents interprètes sont bien sûr au service 
des commissions de travail de la communauté, mais les 
traductions de termes informatiques sont souvent diffi- 
ciles car le même mot (souvent anglais) n'a pas toujours 
la même acception suivant les pays. !l faut donc s'effor- 
cer de bien définir chacun des termes utilisés dans cha- 
cune des neuf langues. Pour cela, deux méthodes sont 
entre autres utilisées. Nous allons vous les présenter 
dans cet exposé. La première méthode consiste à tenter 
de classer les logiciels, utilisables en milieu scolaire, en 
diverses catégories en cherchant dans chacune des neuf 
langues le mot le plus adapté. Afin de permettre à nos 
lecteurs de participer à cette réflexion, nous leur don- 
nons la liste des correspondances anglais-français. À 
vous donc de nous faire parvenir vos remarques sur ce 
travail, elles seront la participation de TEO à la réflexion 
européenne sur les N.T.I. 

Drill/Practice 

Tutorial 

Simulation 

On line acquisition of data 

Controled experimentation 

Too! 

Microworld 

Exploratory system 

Fill-in gaps exercices 

Diagnostic 

Game 

Knowledge transmission 

Dexterity acquisition 

Induction/deduction 

27? 

77? 

Data base 

Wordprocessor 

Expert system 

Authoring system 

Authoring language 

Development support system 

Programming language 

Programming toolkit 

CA. toolkit 

LOGO toolkit 


Dre L 


C.A.D. toolkit 
Software package 
Exerciseur 

Tutoriel 

Simulation 

Mesure 

Procédé de contrôle 
Outil 

Micromonde 
Système exploratoire 
Question-réponse 
Diagnostic 

Jeu 

Transmission de 
connaissances 
Acquisition d'habileté 
Induction/déduction 
Répétiteur 
Instrumental 

Base de données 
Traitement de texte 
Système expert 
Système auteur 
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Langage auteur 

Système de développement 
Langage de programmation 
Utilitaires de programmation 
Outils d'E.A.O. 

Procédures et utilitaires 
LOGO 

Outils de D.A.O. 

Progiciel 


RER et ia liste est encore ouverte! 

Une deuxième méthode, pour échanger simplement au- 
delà des mots et de leurs interprétation, consiste à utili- 
ser des pictogrammes. Le professeur Dieudonné Le- 
clerca, de l'université de Liège, travaille sur ce sujet 
depuis plusieurs années. 1! propose donc d'utiliser des 
“didactogrammes” pour caractériser les fonctions et la 
structure des didacticiels. Les quelques exemples joints 
permettent de se faire une idée des possibilités de cette 
méthode. Ceux qui souhaitent en savoir plus peuvent 
s'adresser à l'université de Liège, au Laboratoire de pé- 
dagogie expérimentale, Start Tilman, Bâtiment B32 - 
4000 Liège 1 - Belgique. 


Voici le macrodidactogramme de la simulation EUREKA : 
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: Danone rt 
ECRAN VIDEO 
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Ici revendeur spécialiste 








VIDEO 3e 


= 


VIDEO 3e 























C'est aussi la 


É = 
—* 


ML 
[ul 


C'est aussi le parrainage : 














lu 


THOMCARTE : 
la carte de fidélité qui donne 66 
droit à 5 % de réduction. 


RER 


MATERIELS * : 

Unité centrale TO9 + 

TO9 + et moniteur couleur 36cm HR 

T09 +, moniteur mono, imprimante haut de 
gamme 80 colonnes, souris et câbles 
TOB8,moniteur couleur 36cm HR et drive 640K ___ 
Unité centrale TO8 

Souris T08/9/9 + et MO6 

Crayon optique 


LOGICIELS" : 

Les passagers du vent (D) TO08/9/9 + 

Les passagers du vent 2 (D) T08/9/9 + 

L'Héritage Il (D) TO8/9/9 + 

Dakar 4x4 (D) T08/9/9 + 

Dakar Moto (D) TO8/9/9 + 

James Débrig : le grand saut (D) T08/9/9 + 

The way of the tiger (D) T08/9/9 + 

Avenger (D) T08/9/9 + 

Missions en rafale (D) T08/9/9 + 

Year Huong Fu Il (D) TO8/9/9 + 

Paragraphe (D) TO8 

Fiches et dossiers (D) TO8 

Multiplan (D) TO8 

Comptabilité générale (D) TO8/9/9 + 

Colorpaint (K) MO5/6/T07/8/9/9 + 

Colorpaint + studio (K) T07/8/9/9 + 

Astérix et la potion magique (D) TO8/9/9 + 

L'affaire Sydney (D) T08/9/9 + 

Carte du ciel + super tennis (D) T08/9/9 + 
Numéro 10 + Beach head (D) T08/9/9 + _____ 
Vol solo + La nuit des Templiers (D) TO8/9/9 +___ 
HMS: Cobra (D) TOB/9/9 + 
Les dieux de la glisse (D) T08/9/9 + 


LIVRES : 

Manuel techniques des TO08/M06 et TO9 + -——— 
102 programmes pour T08/M06 et TO9 + __ 
Super jeux pour TO8/M06/T09 + 


Ainsi que tous les logiciels, matériels, périphériques, etc … 
disponibles en boutique. 


D : disquette K : cartouche 


VIDEO 32 est ouvert du mardi au samedi, de 14h à 20h 
et le dimanche, de 15h à 19h. 


LL 


pour tout parrainage supérieur 


10)" Se) TEE = à 2.000 F., un logiciel gratuit 


pour le parrain. 


Lecteur de disquette 640K 3% _______ 1990F 
Contrôleur de drive 640K T07-70/M05/6 490 F 
Lecteur enregistreur de K7 T07-70/8/9/9 + 550 F 
MANETTES EUX 120 F 
Imprimante PR90-612 haut de gamme 80 col. 2950F 
Câble imprimante TO8/9/9 + 180 F 
Boîte de 10 Quick Disk 2” 8 vierges 250 F 
Boîte de 10 disquettes vierges 3"1z, 

double face, double densité 350 F 


OOO00 OO 
O0 OCO00OCOD 


Green beret + Monopoly + Super tennis 

+ Runway (D) TO8/9/9 +  -— 295 F 
Stone zon0:(0) T08/9/9 + = 7 nn 225 F 
Les cavernes de ténèbres (D) T08/9/9 + 225 F 
KÜRS RD) MOS OO EE 225 F 
ES (DO 0/0 ES 220 F 
Mad dog (D) TO8/9/9 + BE CRT TRES Et 220 F 
TNT (commando) (D) T08/9/9 + 225 F 


EDUCATIFS VIFI NATHAN : 
(Disquette T08/9/9 + et livre) 
Français CP/CE 

Français CM 

Français CM2/6ème 

Maths CP/CE 

Maths CM 

Maths CM2/6ème 


EDUCATIFS BELIN : 
(Disquette T08/9/9 +) 
Histoire/Géographie 
Français 1 

Français 2 

Maths 1 

Maths 2 


O0O0COD OOO00OCOD 


OCOO00O000O0O0000000000000D 


OO0O00O 


NOUVEAU CHEZ VIDEO 32 su 

La THOMCINQ : la carte - 5% La THOMDIX : la carte - 
Principe de fonctionnement : $ 
rtes payantes vous donnen ti\ 
eg As à 10% immédiate sur tous les logiciel 


O 32. ; ei 
chene d'elles est valable 2 ans à compter du jour de son acquisition 
Elle n'est utilisable que par son propriétaire. 


droit respectivement à une remise 
; \ s disponibles chez 


Q valable 2 ans :500 F La THOMDIX valable 2 ans :850 F 


Tarifs : 
La THOMCIN 


O Je désire acquérir la THOMCINGQ. Ci-joint le règlement supplémentaire de 500 F (je déduis donc 5% des logiciels commandés). 
O Je désire acquérir la THOMDIX. Ci-joint le règlement supplémetaire de 850 F (je déduis donc 10% des logiciels commandés). 


Prénom 
Adresse 

Code Postal 

Configuration 

No THOMCARTE 





























Ci-joint mon règlement : TOTAL DE MA COMMANDE : 
ChèqueC CCPO mandat [ 


+ frai 30 F 
Signature " rais de port ( Fi 


u 


VIDEO 32 - 32, rue de Lancry - 75010 PARIS Métro : J. Bonsergent 


Téléphone boutiques : 42.00.14.63 


VIDEO 32 Il - 39, rue de Lancry - 75010 TNT Minitel : 42.06.88.87. 








REPAIRE 


Super Clavier 


revu et corrigé pour TO9 “modifié” 


Super-Clavier, utilitaire 
permettant de reprogrammer 
les touches du clavier du TO9, 
a été publié dans TEO n°7, 


modifié”. Les modifications 
sont, en fait, peu nombreuses 
(deux octets). Mais nous 
publions le listing entier pour 


page 68. Mais il n’était valable 
que sur l'ancienne version du 
TO9. Voici le programme 
rectifié pour tourner sur le “TO9 


L e programme hexadécimal doit être rentré à l'aide 
d'un chargeur (que nous publions à nouveau). L'adresse 
de départ à donner est 9810 (en hexadécimal). Vous 
tapez le programme 16 octets par 16 octets. À la fin de 
chaque ligne, le chargeur vous demande la Cheksum 
(c'est-à-dire la somme de tous les octets de la ligne). 
Rentrez la somme qui se trouve sur le listing pour contrô- 
ler que vous n’avez pas fait d'erreur de frappe. 

Pour sauver le programme : 
SAVEM"SUPERCLA”,&H9800,&H9C73,&H9963 

Vous pouvez déjà lancer l'exécution par EXEC &H9953. 
Tapez le programme Basic d'implantation et sauvegar- 
dez-le sous le nom AUTO.BAT. Vous pourrez ainsi obte- 
nir un lancement direct à l’initialisation du TO9 en pres- 
sant la touche D. 

Pour utiliser les touches programmées : appuyez sur la 
touche fonction désirée. Le contenu des touches s'af- 
fiche en haut de l'écran. Pour taper à nouveau normale- 
ment, appuyez une nouvelle fois sur la même touche. 


les épisodes 


SAVEM"<nom que vous voulez>",&H9800,&H9FFE, 0. 
Pour annuler SUPER-CLAVIER, faites CTRL F, lorsque 
vous êtes en mode de frappe normal. |! vous faudra alors 
le relancer pour l'utiliser à nouveau. 

A vos claviers ! 

Version originale : Alain Nogues 

Modifications : Christian Balehazand 


Explication des modifications 


La modification du programme se porte sur l'equate 
GETCLV quiestaffecté à $FC89 (correspondant au point 
d'entrée GETC$ E806H (lecture clavier du moniteur 
TO9), alors que dans le TO9 modifié, le point d'entrée 
E806H (GETCS nous dirige sur $FC88). 

De ce fait, il faut modifier l'equate 

GETCLV EQU $FC89 par 

GETCLV EQU $FC88 

ainsi que 

LDD #$FC89 par 


Pour modifier le contenu d'une touche: mettez-vous LDD #$FC88 


sous le jeu de touche que vous désirez modifier (de F1 à 
F9), puis tapez la touche fonction F10. Un message “Af- 
fectation ouverte” apparaît. Appuyez la touche que vous 
désirez affecter. Le message “SUR LA TOUCHE —" ap- 
paraît. Tapez le texte (17 caractères maximum). La 
touche Entrée le validera. 

Vous pouvez sauvegarder votre nouveau clavier par : 


Chargeur hexa 

1 *SAVE "CHGHEX 

10 CHARGEUR HEXA AVEC CHECK-SUM 

12 SCREENS,0,0:CLS 

14 INPUT"ADRESSE DE DEPART (HEXA): ";D$ 
18 N=VAL("&H"4D$):CLS 

18 CS=0:COLOR ! 

20 PRINTHEX$(N)" ":COLORS 

22 FOR 1=1 T0 2:F0R J=1 T0 8 

24 A$=INPUTS (2) 

26 IF A$="27" THEN END 

28 PRINTA$;" "; 

30 P=VAL ("LH"+A$) :POKEN, P:N=N+1: CS=CS+P 
32 NEXT J:PRINT:NENT ! 

34 COLOR 5: INPUT "CHECKSUM"; CT 

36 IF CS=CT THEN 40 

38 N=N-16:PLAY"DO":PRINT"ERREUR !!!":60T 
D18 

40 COLOR2:PRINT"OK":60T0 18 


16 


où, dans le listing hexadécimal : 


981F ——> 89 par 88 
9863 ——> 89 par 88 
Lanceur Basic 


100 CLEAR,, ,&H97FF 

{10 CLS:LOCATE4,0:PRINT'"MISE EN PLACE DU 
SUPER-CLAVIER" 

120 LOCATEO,2:PRINT" Voulez-vous charger 
une affectation par-ticuliere sur F6/F9" 
COLOR: PRINT" (O/N) "3: COLOR4: PRINT" ?" 
130 REPONSES=INPUT$(1):1F REPONSE$<}"Q" 
AND REPONSE$C)"o" THEN CLAVIER$="SUPERC 
LA":60T0 170 ELSE LOCATEO,6 

140 COLORS, 0: PRINT" Entrer le nom sous 1 
equel ce clavier a ete sauvegarde":COLOR 
4,6:LOCATE15,7:PRINT" {Taper "+CHR$(34)+"7? 
“+CHR$(34)+" permet d’affi-","cher le re 

pertoire de la disquette)" 

150 LINEINPUT"?";CLAVIERS 

160 IF CLAVIERS$="?" THEN DIR:PRINT"Nom"; 
:60T0 150 

170 LOADM CLAVIERS$:IF CLAVIER$<)"SUPERCL 
A" THEN POKE &H9800,1 

180 EXEC 4H9953 

190 LOCATEO, 7:NEN 
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ceux qui n'auraient 


s suivi 


attendons avec impatience 
nouvelles versions pour TO9+ et TO. 


Super Clavier hexa 


9800 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 : 
9810 31 31 29 20 CD 20 58 24 9C F3 9F FE 31 BD FC 08 

9820 34 73 1A 50 31 8C DD C1 90 25 2C C1 98 22 28 60 

9830 3E 10 26 O1 18 CA OF 60 3D 27 O4 EL 3F 26 02 65 : 
9840 30 E7 3F 6D 30 27 06 17 O1 3F 16 O1 03 33 8D 02 

9850 7E 17 O1 2C 16 00 F9 6D 3D 26 16 C1 06 10 26 00 : 
9860 FO CC FC 88 FD 60 OA 33 8D 02 86 17 01 62 16 00 : 
9870 DF CI 99 27 30 6D JE 26 59 6D A4 27 11 CI 40 10 : 
9880 25 00 CE C4 IF 17 01 6C 17 01 A1 16 00 C2 C1 00 

9890 10 26 00 BC 35 8D 03 29 17 01 33 17 00 EB 86 O1 : 
98A0 A7 A4 16 00 AB A6 JF 81 05 10 25 00 AS 63 JE 6D : 
9880 3E 27 12 6F 60 02 AC 53 8D 02 78 17 O1 12 86 01 

seco A7 A4 16 00 8B 33 80 02 F8 17 01 04 17 00 BA 16 : 
9800 00 ZE 6D 80 02 8D 26 1B 5D 10 2B 00 73 C1 40 10 : 
980 25 00 6D CA 5F E7 8D 02 7A 33 8D 02 65 17 00 EQ : 
98F0 16 00 50 A6 A4 C1 O1 27 16 C1 0D 26 2D 17 01 58 : 
9900 6D A4 26 0B 43 JE 33 8D 02 SF 17 00 CS 20 41 6F : 
9910 8D 02 50 33 8D 02 AA 17 00 B6 17 00 6C 33 8D 02 : 
9920 15 17 00 AC 86 01 A7 A4 20 26 C1 08 26 08 81 O1 : 
9930 27 1E 6A A4 20 1B C1 09 26 08 81 11 22 12 6C A4 : 
9940 20 0F C1 20 25 OÀ 81 11 22 06 E7 Ab &C A4 20 01 

9950 SF 35 F3 31 60 FE AD 33 80 FE C2 FF 60 OA 86 O1 : 
9960 A7 A4 6F 3D 6F JE 6D 3C 26 18 33 8D 03 05 C6 81 

9970 86 AO A7 CO SA 26 FB 33 SF EF AB 14 CC 9F FE ED : 
9980 A8 lé 33 8D 01 49 8D 48 39 C6 51 EB 3F E7 8D 01 : 
9990 97 B6 60 1B F6 60 20 34 06 33 6D O1 77 BD 4A 4F ; 
990 34 02 34 02 34 02 C6 1B BD EB 03 C6 SC BD EB 0 : 
9980" 35 04 CB 40 BD EB 03 C6 18 BD EB 03 C6 SC BD EB : 
9900 03 35 04 8D 2F 80 65 35 02 4C 81 20 26 D2 20 OA : 
9900 B6 60 18 F6 60 20 34 06 80 OF 35 06 B7 60 1B F7 

99E0 60 20 33 8D 01 EA 8D 01 39 E6 CO 50 27 05 BD EB : 
99F0 03 20 F6 39 34 04 Ab JF 81 04 23 04 86 FB AB 3F : 
9h00 Cé 20 30 IF 01 35 04 SA A6 JF 81 04 23 08 IF 10 

9A10 33 8D 02 5F 20 0B 33 8D O1 89 IF 10 Eb CB CE 27 : 
9a20 E9 50 27 07 Ab CO 2A FC 5A 26 F9 39 Eë CO 28 0 : 
9A50 BD EB 03 20 F7 C4 7F BD EB 03 39 6A A4 6D A4 26 : 
JA40 06 86 20 A7 21 6C A4 Eb 8D 01 18 C4 1F 6D AS 54 : 
9ASO 40 5F SC A6 CO 2A FB EF AB 12 E7 AB 18 E6 A4 EO : 
JA6O AB 18 E7 A8 18 27 36 EC AB 14 AS AB 12 C3 00 O1 : 
9A70 1F 01 Eb AB 18 2B 26 1D E3 AG 14 10 AS AG 16 23 

A8 05 35 40 &F A4 39 EE A8 14 Eb AB 18 A6 CA A7 CS : 
9490 A6 C2 30 1F 26 F8 ID E3 AB 14 ED AB 14 35 40 34 : 
gAno 20 Eb AO SA 27 07 A6 AO A7 CO SA 26 F9 A6 A4 BA : 
sABO 80 A7 CO 35 20 Eë AB 18 2A 14 50 34 20 31 C5 A6 

JACO A0 A7 CO 30 1F 26 F8 35 20 33 5F EF AB 14 39 1F 

900 20 20 1F 10 16 OC 1F 40 4C 1B SC 53 55 50 45 52 : 
JAEO 20 43 4C 41 56 49 45 52 1B SC 1F 20 21 1F 12 14 

9AFO 00 1F 20 20 {F 10 16 OC 1F 40 4C 1B 5C 43 4C 41 

9800 56 49 45 52 20 4€ 4F 52 4D 41 4C 18 SC 1F 20 20 : 
9810 1F 12 14 00 1F 20 20 IF 10 16 OC IF 40 4E 18 SC : 
9820 54 4F 55 43 48 45 20 46 31 1B SC 1F 41 40 20 IF : 
9830 20 27 1F 12 14 00 1F 30,30 18 18 43 1B 51 41 46 : 
940 46 45 43 54 41 54 49 4F 4E 20 4F 55 56 45 52 54 : 
9850 45 00 1F 40 57 53 55 52 20 4C 41 20 54 4F 55 43 : 
9860 48 45 20 00 18 46 1B 54 00 1F 20 20 1F 10 16 1B 

9870 44 18 56 OC 1F 41 45 1B 43 1B 51 50 4C 55 53 20 : 
9880 41 53 53 45 SA 20 44 45 20 50 4C 41 43 45 20 44 : 
9890 49 53 50 4F 4E 49 42 4C 45 1F 43 46 1B 42 1B 50 : 
9BAO 50 72 85 73 73 65 72 20 73 75 72 20 6€ 61 20 74 : 
9BBO 6F 75 63 68 65 20 1B 40 1B 53 45 4€ 54 52 45 45 : 
9BCO 00 1F 20 20 1F 12 14 1B 23 20 44 1B 23 20 56 00 : 
98n0 09 0B 00 9D 28 B4 2€ 03 0F 01 07 3B JA ZA 30 1C : 
9BEO 73 02 16 2B 0B 05 46 44 3F 97 3C 19 39 OA 15 13 : 
9BFO 14 12 1E 1D 87 A9 88 29 B2 AC 92 BE 99 96 AA 93 

9co0 95 31 8F 83 7D 94 85 JA 40 86 17 41 68 BO AD 84 à 
9C10 AE 7F SE 67 7B 26 24 04 18 77 7E BS 72 37 90 25 

9c20 B1 9F 43 358 1F B6 87 78 27 89 6D 42 6E B8 8C 6A : 
9C30 8B 9E 9B AC AF 23 75 6F 71 SA SE 40 2F 50 91 70 

9040 51 45 35 5D 4F 69 6B 82 81 80 63 4E 9€ 36 58 06 : 
9050 SC 00 OC 2D 1A 65 20 18 22 62 61 6C 56 60 58 35 

9c60 34 59 11 2A 6A 08 32 10 64 SF 7C 98 B3 66 76 74 : 
9c70 79 @D 0E A0 00 00 00 00 00 00 00 00 FF 00 00 00 : 


[l 
1970 
1629 
995 
877 
1028 
1663 
1556 
1209 
948 
1373 
1039 
1193 
1124 
1475 
1072 
1198 
1117 
1129 
His 
1207 
2144 
1454 
2459 
1644 
1494 
1525 
2108 
1072 
1505 
1734 
1414 
890 
1435 
1928 
2088 
1625 
2368 
1677 
1383 
202€ 
1765 
2008 
1632 
1650 
854 
847 
474 
1015 
537 
949 
628 
1186 
1021 
572 
916 
1048 
1045 
1505 
1216 
506 
877 
742 
1836 
1807 
1467 
1946 
1724 
1458 
1005 
1366 
691 








TECHNIQUE 


O-PC 





Le TO compatible mais presque 


Le TO compatible mais 
presque, comme aurait dit 


Coluche, ne tourne pas encore 


sous MS-DOS, mais il peut lire 


directement les disquettes des 


fameux compatibles PC. Tout 
le monde peut-il en faire 
autant? 


1 ?SAVE "IBMLECT 

100 CLEAR, LHDE91 :FORI=569787057333:READA 
S:POKET, VAL ("£H"+A$) :NEXT : POKERH6270, LH3 
9:POKELHE271 , LHDE : POKEWHE272, 4H92: POKEWH 
8270, H7E: END 

110 *---TEST LOAD 

120 DATAS4,03, 81,83, 27,0€, 81, 88, 26,08, 9€ 
,89,86,01,81,22, 27,02, 35,83 

130 *---LIT LE NOM 

140 DATA 9D,B2,10,BE,57,C0,CC,0A, 20,E7,À 
b,44,20,FB, BD, 0€, 02, 5A, A6, 85, A7, A5, 5A, 2A 
,F9 

190. *---LECTURE FAT 

180 DATA CE, 60,40,CC,02,00,ED,48,1E,89,E 
D,4B,30,2E,AF,4F, BD, 29, 6C, 4C 

170 *---RECHERCHE NOM/RACINE 

180 DATA 6C, 4, BD,E8, 2A, AE, 4F, 6D, 00, 26,0 
5,C8,3E,7E,03,53,C6,FF, 50, A6, 85, A1, A5, 27 
,F9,01,07,22,74, 30,88, 20, 80, 50,00, 25,EB, 
29,09 

190 ?---S/P LECTURE DISQUE 

200 DATABD, 00, BD,E8, 2, B6, 60, 40, 4C, 81, 0A 
,25,05,86,01,87, 80, 49,87, 60,4C,7C, 60, 4F, 
7C,60,4F,39 

210 *---S/P N’BLOCPOSITION)LECTURE 


V. donc. une routine, en langage machine, de 
lecture directe sur TO7/70 de disquettes MS-DOS Nano- 
réseau avec le lecteur double densité. Les établisse- 
ments scolaires non dotés de Nanoréseau pourront utili- 
ser directement les disquettes des valises de logiciels. 
Pour l'utiliser, il suffit de taper le programme ci-dessous, 
puis, après l'avoir sauvegardé, de faire RUN. La routine 
est relogeable, mais ne contrôle pas la place mémoire 
disponible. 

Pour afficher la directory d'une disquette MS-DOS, faites 
RUN 500. LOAD “nom” ou RUN “nom” charge le pro- 
gramme depuis la disquette MSDOS. 


220 DATA AE, 82,30,0D,CC,FF, 00,40,30,17,8 
C,00,09,24,F8,81,29, 24,87, LE, 10, 58, 5C, C1 
,08,25,03,C0,09, 40, 34,87, 60,49,EF, 60, 48, 
8D, BD 

230 *---S/P CALCUL BLOCK SUIVANT (FAT) 
240 DATA EC, 62, 1F,01,44,56,30,8B,EC, 65, E 
C,8B, 1E,89,24,08,44,56, 44,56, 44,56, 44,56 
,84,0F,ED, 82, FC, 80, 4F, 80, 04,FD, 60, 4F, {F, 
01,39 

250 ?---LECTURE 1° BLOCK 

260 DATA EC, 88, 1A,1E,89,31,2E, 34,2E, 8, À 
7,30,88,7F,EC, 81, 10,A€,81,E7, 82, 26, 04,FE 
,81,20,04,FC, 41,10, 1F,03,E3, 1E,FD, 61, LE 
270 *---TRANSFERT VALEURS 

280 DATA A6,80,A7,00,31,3F,27,0A,80,5F,C 
E,26,F3,17,FF, 70, 20,EE, A6, 62 

290 *---ENLEVE LE VERROU EVENTUEL 


300 DATA 32,85,26,01,39,81,FE, 2, 32, CC, 0 


D,08,D0,55,9E, 10, 90, LE, 27,27, A6, 84,90,55 
CE, 27,09,D6,55, A8, C5, CE, 19,C3,D6,56,A8, 
C5,98,56, A7, 80, CC, 00,08, 0,55, 26,02, 97,5 
5,04, 56, 26, 02, 07,56, 20,D5 

310 *---RECALE ADRESSES MOS/T07 

320 DATA BE,61,1C,31,04,8D, A0, 26,FC, 1F,2 
0,43,00,ED,8C,03,EC, 84, C3, 00, 00,ED,84, 1F 
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,01,EC,84,26,F5, 39 


300 ?---LECTURE CATALOGUE 
320 CLS:CONSOLE, 18, 1:SCREEN 2,0, 0:PRINT 


“ { -ECRAN 2-IMPRIMANTE "5: I$=INPUTS (1) 
:1F 1$="2" THEN OPEN "O",#1,"LPRT: (40)° 

ELSE OPEN "0",#1,"SCRN: " 

540 F=0:P=0:FOR S=6 TO 9:POKERHBO4F, &H57 
:POKELH6050, LHCO: POKE&H6049,F : POKELH6O4B 
,P:POKE&H804C, S:POKEUH6049, 2: EXEC&HEBZA: 


FORI=22464 TO 22975 STEP32: IFPEEK(I+1)31 © 


27THEN CLOSE: CONSOLE, 24, 0: END 

560 A$="":FORJ=0T07: A=PEEK(1+J) : A$=A$+CH 
R$(A+(127-A)H-(A632 OR A3127) ):NEXTJ:A$= 
A$+",":FOR J=BTO10:A$=A$+CHRS (PEEK(1+])) 
:NEXTI 


570 B=PEEK(I+11):IFB=1THEN B$="LECTURE"E 
LSEIFB=2THENBS="CACHE  "ELSEIFB=ATHENES= 
*GYSTEME"ELSEIFB=GTHENBS="UOLUME "ELSEIF 
B=16THENBS="S/CAT. "ELSEIFB=32THEN B$="A 
RCHIVE" 
580 A$=A$+" "+BS+" ELC:"4#RIGHTS("  "#ST 
RS (PEEK(1+26)+2S6NPEEK (1427)),3)+" LONG: 
"#RIGHTS("  "4STRS(PEEK(I+28)#2S64PE 
EK(1429)),S):PRINTH,A$3:NEXTI,S 
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REPAIRE 


Compilations sous Forth 





des fichiers 


es systèmes Thomson - TO7, 
T07/70 et TO9 - disposent d'un’ 
outil de composition graphique 
très performant, dont les 
dessins sa jardés dans des 
fichiers d'extension .MAP 
peuvent être récupérés sous 
Basic 128. I! s’agit de 
ColorPaint. Pourquoi ne 


pourrait-on À us disposer de 
cette facilité sous Forth ? 


La compilation du contenu des blocs 1 à 5 vous permettra 
de récupérer, sous Forth, les dessins sauvegardés dans 
vos fichiers d'extension .MAP 

Pour lire un fichier d'extension MAP provenant d'un 
dessin réalisé à l'aide de ColorPaint, il suffit de taper 
LIRE. L'exécution de ce mot affiche : 

Nom du mot à définir : 

question à laquelle vous répondez en tapant un mot 
quelconque et dont la zone paramétrique est destinée à 
recevoir le dessin provenant du fichier d'extension 
.MAP. Pour exemple, répondons par BIDULE. Ensuite, 
l'exécution de LIRE affiche : 

Nom du fichier à lire : 

Le nom du fichier doit correspondre à celui d’un fichier 
.MAP. Taper le nom du fichier sans l'extension. Sile nom 
du fichier comporte moins de huit caractères, compléter 
avec des espaces. Pour exemple, si vous avez sauvegar- 
dé depuis ColorPaint un dessin dans un fichier nommé 
TRUC.MAP il faudra répondre par TRUC suivi de 4 es- 
paces. 

Sitout s'est bien passé, le mot BIDULE contient le dessin 
issu du fichier TRUC.MAP avec toutes les caractéristi- 
ques de forme et de couleur. La taille du mot BIDULE 
généré par LIRE est fonction du nombre de données 
provenant du contenu du fichier TRUC.MAP. 

Pour afficher le dessin, il faut faire précéder le mot géné- 
ré par l'exécution de LIRE, des coordonnées x et y, avec x 
compris dans l'intervalle 0.39, et y compris dans l'inter- 
valle 0..24, sous réserve que le choix des coordonnées x 
et y ne provoque pas un débordement du dessin en de- 
hors des limites de l'écran. Pour exemple, l'affichage du 
contenu de BIDULE est réalisé dans le coin supérieur 
gauche de l'écran en tapant : 

0 0 BIDULE 

Sur ce principe, vous pouvez compiler autant de dessins 
que vous le souhaitez, dans les limites de l'espace mé- 
moire disponible sous Forth. Une fois les dessins compi- 
lés, iln'est plus nécessaire de disposer des fichiers géné- 
rés par Color Paint. La vitesse d'exécution de l'affichage 
peut être accrue en réécrivant les mots RANGER, CDIFF, 
CNUL, et TRAITEMENT en code machine. 

Marc Petremann 
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SCR: 1 

{ permet de definir des vars en serie: ) 
CC n --- <mot1> <mot2>..<motn>) 

t VARIABLES 


© DO VARIABLE LOOP ; 


11 VARIABLES 
GCODA GLARG GHIGH GXMIN GYMIN 
GDEBCO GFINFE POSITION POINTEUR 
GXMAX GYMAX 


HEX 4000 CONSTANT ECRAN DECIMAL 
40 CONSTANT SCRLAR 


{ x et y sont en coordonnees caracteres) 


€ adr=ECRAN+x + SCRLARXy*8 ) 
t CALC ( x y --- adr) 
SWAP ECRAN + € x2:=ECRAN+x ) 
SVAP 8 * € y2:=y*x8 » 
SCRLAR * € y3:=y2XSCRLAR ) 
1 € adr:=y3+x2 > 
SCR: 2 
{ initialisation des parametres ) 
1 ANITP C'adr == 

QUP C@ GCODA ! 1+ DUP C@ GLARG 
1+ DUP C@ GHIGH ! 1+ POINTEUR ! 
{ initialisation des variables > 
: INITVARS € ---) 


GXMIN @ GYMIN @ CALC GDEBCO 
GXMIN @ GLARG @ + GXMAX 
GYMIN @ GHIGH @ + GYMAX 
{ test si le dessin sort de l'ecran) 
GXMAX @ 39 > IF CR 

" dessin trop a droite" ABORT THEN 
GYMAX @ 24 > IF CR 

“ dessin trop bas” ABORT THEN 
GXMAX @ GYMAX @ 1+ CALC 39 - GFINFE 
GDEBCO @ POSITION ! 


: RANGER € © ---) 
POSITION © C! 4@ POSITION + 
POSITION @ GFINFE @ 
OVER OVER > >R = R> OR 
IF € POSITION > ou = GFINFE) 

1 GDEBCO +! GDEBCO © POSITION 
THEN ; 


SCR: 3 
{ traite octet si <>@ ) 
# CDIFFR (€ © ——-) 


1 POINTEUR +! 
© DO POINTEUR @ C@ RANGER LOOP 
1 POINTEUR +! 


{ traite octet si =0 4 

t CRUE CES) 

1 POINTEUR +! POINTEUR @ C@ 

© DO 1 POINTEUR +! POINTEUR @ C@ 
RANGER LOOP 

1 POINTEUR +! 
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.-MAP 


en provenance de ColorPaint 





HEX E7C3 CONSTANT SELEC DECIMAL 


CS 


bascule en memoire couleur ) 
t: COULEUR SELEC C@ 254 AND SELEC C! 


bascule en memoire forme ) 
FORME SELEC Ce 1 OR SELEC C! 


A 


SCR: 4 
VARIABLE FIN? | 


: TRAITEMENT 
© FIN? ! 
BEGIN | 
POINTEUR @ C@ ?DUP | 
IF CDIFF 
ELSE | 
POINTEUR @ 1+ C@ 
1F CNUL 
ELSE 1 FIN? ! THEN 
THEN | 
FIN? @ 
UNTIL ; | 
| 
| 





: AFFICHE 

INITP INITVARS 

FORME TRAITEMENT 2 POINTEUR +! | 
INITVARS COULEUR TRAITEMENT ; | 


SCR: 5 
11 STRING FICHIER 


t LIRE C'=) 
CR ."” Nom du mot a definir :" QUERY S 
CREATE ( 
FICHIER 11 DROP BLANKS 
CR ."” Nom du fichier a lire:" 
9 LINPUTS FICHIER $! |! 
FICHIER DROP 1- 8 SWAP C! 2 
”# MAP" FICHIER $+ FICHIER FNAM! 
2 FTYP! à FASC! 1 10 
5 © DO GETC DROP LOOP 
BEGIN 
GETC D-ERR C@ DUP 4 = 
IF CR ."” Fichier “ FICHIER TYPE 
“ non trouve” 
[COMPILE] SMUDGE ABORT 
ELSE 255 = 
IF DROP © ELSE 1 THEN 
THEN 
WHILE C, REPEAT 
DOES»> € 1ig col ---) 
>R GXMIN ! GYMIN 
R> AFFICHE ; 


PGCD 


Lo? #4 P.6.C.D t4t (OCA ET B€32767) ET 
| AB 
M1 * POUR TOUTE LA GAMME THOMSON 
5 CLS:PRINTEHRE (20) :SCREENO, 7,7 
10 INPUT" A=", A: E0SUB100: INPUT"E=", B:60SU 
B120:60SUB150: AS=STRS (A) :L=LENTAS) :A$=RI 
IGHTS(AS,L-1)4" ":BS=STRS (BR) :L=LEN(BS):B$ 
RIGHTS (BS,L-1)4" 
V20 X=A HODE: 1F1=0607050 
V30 4=B:B=X:60T020 
50 CLS:PRINT'LE P.G.C.D DE "AS"ET "B$"ES 
T "B";":A8=INPUTS (1) : RUN 
100 IFACOORA)22767THENPRINT"O{A<32768 S’ 
IL VOUS PLAIT... ":A$=INPUTS (1) :RUN 
1140 RETURN 
1120 IFBCOURB>32787THENPRINT"OB< 32788 5° 
DL VOUS PLAIT... ":A$= INPUT (1) : RUN 
1130 RETURN 
190 IFACB THENPRINT"A>B S'IL VOUS PLAIT. 
D, ,":A8=INPUTS (1) : RUN 
160 RETURN 


È 


Nombres premiers 


Lo? tés NOMBRE PREMIER EX (0132787) 
D4 * POUR TOUTE LA GAMME THOMSON 
15 CLS:PRINTCHRS (20) :SCREENO, 7, 7 
Li0 INPUT"X=", X:60SUR100: KS=STRS(X) :LELEN 
DONS) XS=RIGHTS (KE, L-1)+" 

20 FORI=2T0N-1: IF (X MODI)=060T050 
L30 NEXT:CLS:PRINTK#: "EST PREMIER. ":A$=IN 
DPUTS (1) :RUN 

D50 CLS:PRINTX#:"N'EST PAS PREMIER (DIVIS 


IBLE PAR": 5 "PAR EXEMPLE). "1 AS=INPUTS (1) 
D :RÜN 

1100 IFXCIORX>32767THENPRINT"OCY<32768 5° 
fe VOUS PLAIT... ":A$=INPUTS {13 : RUN 
qu RETURN 


REPAIRE # 


| Amuse-gueule 






J-P. Zannier 


Calcul d’une valeur approchée d'une intégrale 


par la méthode des RECTANGLES: 


110 ELS:SCREEN7,0,0:DEFDBLA-Z:PRINT"VALE 
UR APPROCHEE D'UNE INTEGRALE PAR LA METH 
ODE DES TRAPEZES,";eCOLORS: PRINT"  (c} 
JPZ 1986. ":COLORE: PRINT: PRINT POUR : "3: 
COLOR2:PRINT'TOUTE "3: COLORS: PRINT'LA ”; 
: COLOR! :PRINT'GAMME *:: COLOR7:PRINT"THOM 
SON "; 

130 PRINT'LA FONCTION EST À ENTRER A LA 
LIGNE 240 DE LA MANIERE SUIVANTE : V=F{X 
), AVANT DE FAIRE RUN, ":PRINT 

140 INPUT'Valeur de À : ",A:PRINT 

150 INPUT'Valeur de B : ",B:PRINT 

180 INPUT'Valeur de N : ",N:PRINT 

170 C=(B-A)/NiN=N-! 

180 D-0:V1=0:Y2=0 

200 X=A+NYC: GOSUB240: YI=Y 

210 X=A+(N+1) 1C: 60SUB240: V2=Y 

220 D=D+(Y1+Y2)/2:N=N-1: IFN=-{G0TOZ30ELS 
E200 

230 R=C1D:60T0260 

249 V=EXF(X)/X 

250 RETURN 

260 PRINT:PRINT'RESULTAT : ":R:PRINT 

270 PRINT: PRINT'UNE AUTRE (O/N) 7 "3; 

280 R$=INEUTS (1): IFR$="O"THENRUN 

290 IFR$="N"THENCLS: END 

300 6970280 


TEO annonces 


par la méthode des TRAPEZES: 


119 CLS:SCRECN7,0,0:DEFDBLA-Z:PRINT'VALE 
US APPROCHEE D'UNE INTEGRALE PAR LA METH 
ODE DES RECTANGLES,";:COLORS:PRINT" fc 
) JPZ 1986.":COLORE: PRINT: PRINT"POUR : * 
5: COLDR2:PRINT'TOUTE "3: COLORS:PRINT'LA 

“s:COLOR1:PRINT'GAMME "; :COLOR7: PRINT'TH 
ONSON "; 

130 PRINT'LA FONCTION EST À ENTRER À LA 

LIGNE 240 DE LA MANIERE SUIVANTE : V=F{X 
), AVANT DE FAIRE RUN. ":PRINT 

140 INPUT'Valeur de À : ",A:PRINT 

150 INPUT"Valeur de B : ",B:PRINT 

160 INPUT"Ualeur de N : ",N:PRINT 

{70 C={B-A) /N 

{80 D=0 

199 X=NIC+A 

200 6OSUEZ40 

210 D=D+Y 

220 N=N-1:1FN 6070190 

239 R=CiD: 6070280 

240 V=EXP{X1/X 

250 RETURN 

260 PRINT:PRINT'RESULTAT : "3R:PRINT 

270 PRINT:PRINT'UNE AUTRE (D/N) ? 5 

280 Ré=INPUTS {1}: IFR$="O"THENRUN 

290 IFR$="N"THENCLS: END 


300 6070280 


Pour rédiger voire annonce, utilisez ce bon ; écrivez très lisiblement en majuscules. 


Es 


Coupon à retourner 
correctement rempli 
à l'adresse suivanie : 


TEO 
5,7, rue de 
FAmiral Courbet 
944160 Saint Mandé 








annoté Er dr ni < CREER 


g 
| 





CORTEX 





D IV 


Introduisons dès le départ les deux primitives fondamen- 
tales, la primitive d'appartenance et la primitive de non- 
appartenance d'un élément à une liste. 


=1e<S>APPCXKD, €KAG 3 #1 22. 
=SZ=<EDAPPOHND, CAN HAE DD: 
APPCHXD, #42), 


€ 32NOMAPC#X0 , MIL 2. 

124 112 HOMAPC#XD, CHALJHKE DD: 
DIFFC#KG, #X1 28 
HONAPC#KG, 442 2, 


si 


On sait qu'en PROLOG les ensembles sont “représentés” 
par des listes, mais pas n'importe comment, ni sous n'im- 
porte quelles conditions. Dans Téophile n°5, V. Perrotin 
propose à ce sujet de précieuses remarques (à travers 
une réflexion Logo transposable en Prolog). 

Revenons un instant sur la double différence qui sépare 
“ensembles” et 
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privoiser Prolog 


Listes 
ef ensembles 


nent mais certains éléments peuvent être répétés. Dans 
un ensemble l'ordre est indifférent mais aucun élément 
ne peut être répété. Autrement dit, une liste ne peut 
symboliser un ensemble que si tous ses éléments sont 
distincts, ce que teste la primitive ci-dessous. 


=1=<22DISTINCTCNIL). 

=2=#<3)DISTINCTCC#KO: #X1 221 
NONRPC#K9 , #X1 24 
DISTINCTC#K1 2. 


Ilest possible bien sûr de réduire une liste avec répétition 
à une liste sans répétition (qui répondra “succès” à l'in- 
terrogation “?:Distinct”. Pour construire cette primitive 
REDuction, il est commode de passer par une primitive 
plus générale, et très utile par elle-même, à savoir: OTE- 
LES {*X0, ‘L1, ‘L2), qui rend une liste “C2 en retirant de 
*C1 toutes les occurrences de *X0. La clause =2= se 
situe dans les cas où *X0 est en tête de liste, la clause =3= 
dans les cas où *X0 appartient à la queue de liste: 


=1=<4)0TE-LESC #X9, NIL, NIL), 

22€ 10)0TE-LESC #X0, (4x0 #A1 ), #2 21 
OTE-LESC #X0, #41, #42) 

=3a(1520TE-LESC #K9, ÇKK1 ; #2), CHALIKAG II: 
DIFFC#KG ; #X1 26 
OTE-LESC #X0, #KE , 4XS ). 


ÊTIOTE-LESCA,CC,A,D,A,F,A), XX0) 


#X0 = (C,D,F) 
æ— SUCCES (12 
$ 


De “OTE-LES”, on tire facilement la primitive RED, 


=1x<3>REDCNIL,HIL ). 

2m 142REDC C#KG; #K1 7, CHKB: HAZ D: 
OTE-LESC #40, #AL HAS 28 
REDC#K3, #K2 ). 

$7:REDCCA,C,F,A,A,D, C2, #X0 2 


#X0 = (A,C,F,D) 
-— SUCCES --(1)-- 
& 


qui ôte d'abordtousles À de (A, C,F, À, À, DC), puis tous 
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irréductible. Les éléments retirés sont récupérés en un 
sens exemplaire en tête des résultats partiels (*XO; *X2). 
À partir d'une liste réduite, il est possible de déduire les 
différents ensembles qu'elle peut symboliser. Comme 
ces ensembles sont composés des mêmes éléments que 
cette liste caractéristique, on choisira une procédure de 
type permutation. Elle pourra s'appeler EG-ENS (*X0, 
*X1) du fait que ces ensembles seront égaux entre eux. 
Elle présentera le double avantage de tester l'égalité 
d’une part, et d'autre part de construire tous les ensem- 
bles égaux à l'ensemble de référence tel qu'il est repré- 
senté: 


#7:EG-ENSCCA,B,C,F),(F,R,B,C2) 
mr SUCLES ==( 19 
$ 


$7:EG-ENSCCM, MN, D 2, #0) 


#40 = (M,H,D) 
#40 = (H,M,D) 
#4 # (N,D,M) 
XD = (M,D,N) 
#X0 = (D,M,H) 
*K0 = (D,H,M) 
—— SUCCES --C6 

F1] 


$LIST(EG-ENS } 


m1=<(3)EG-ENSCNIL, HIL ). 

m2#<123EG-ENSCC4AD; A1 2, KX2 D: 
EG-ENSC #X1 , 4X3 28 
IHSCHKO, #KG , HKZ D. 


$LIST(INS) 


=12<6>INSCKKG, HAL, CKKDI KA D), 
=2=<123INSCKXO, CHA 5 #K2 2, CHAL IKKS DD: 
INSCHKD, 442, 43 D. 


Dans cette perspective, nous utiliserons EG-ENS pour 
passer des parties d'une liste (PARTLL) aux parties d'un 
ensemble (PART-ENS). 

En effet, à chaque liste qui constitue un succès de 
PARTLL peut correspondre un ensemble qui constitue 
un succès de PART-ENS. Le nombre de solutions indi- 
qué par Prolog pour PARTLL ({A,B,C), *X0) est de 8, 
c'est-à-dire de 23. et on expliquera ce résultat en mon- 
trant que toute introduction d'un nouvel élément se tra- 
duit par le doublement du nombre de solutions, la liste 


“listes”. Dans une liste, l'ordre est perti- les C, et tente de réduire une queue de liste devenue vide comptant pour une partie. 








#LISTCPARTLL ) 


s1=<19>PARTLLCCKXD: KXL D, CHKO I KZ D D: 
PARTLLC#ÆX1 ; #K2 7. 

22=(12>PARTLLE CKKD I XXL 2, CHUZI KI D): 
PARTLLCÆX1 ; CHA2 3 4RI 2). 

=3=<3>PARTLLE #X0, NIL . 


SLISTCPART-ENS à 
æ1RCH)PART-ENSC#X8 ; XX 1 1 


PARTLLC#XO , XX2 J8 
EG-ENSC #X2, KX1 2. 





$ 
#7: PARTLLCCA,B,C), 48) 


*X0 “ (A:B,0) 
#X0 æ (A,B) 
*#X0 # (A,C) 
#X0 = CA) 

#X0 = (B,C) 
#x0 æ (B) 

40 = (C) 

Eat] = NIL 


= SUCCES —-(8)-= 
#7: PART-ENS((A,B, C ), #XD) 


#K0 = (A,B,C) 
**X0 # (B,A,C) 
*X0 m (B,C,A) 
*X8 = (f,C,B) 
4x0 = (C,A,B) 
*xX0 = (C,B,A) 
*X0 # (A,B) 
#X0 # (BA) 
#*0 m (A,C) 
#0 # (CA) 
#x0 = CA) 
#X0 # (B,C) 
#X0 = (C,B) 
*x0 #“ (B) 
*+x0 m (C) 

= NIL 


+0 
—— SUCCES —-(16)-— 
$ 


Une procédure fondamentale : LISTE-DES 


En fait, la représentation des résultats donnés ici par 

Prolog peut ne pas être toujours satisfaisante. Les parties 
. se succèdent en effet par énumération alors qu'elles 

constituent un ensemble, ou une liste, qu’il serait souhai- 

table parfois de traiter comme tel à l'intérieur de paren- 

thèses. Micro-Prolog propose à cette fin une primitive 

prédéfinie: ISALL, parfois traduite par LISTE-DES. Es- 

sayons d'élaborer cette primitive indispensable chaque 

fois que nous voudrons obtenir non pas des résultats 
: mais une liste de résultats. Comment faire? 

Il faut d'abord placer l'énumération des solutions sous 
une tête de clause spécifique, par exemple SOL. La 
clause LISTE-DE appellera ensuite ces solutions pour 
… les mémoriser sous forme de données. 




















#LIST( SOL à 


mim<112>SOLC#X0 ): 
PART<ENSCCA,B, C2, #K@ 2. 


#LIST(LISTE-DE } 


=1=<BLISTE-DE #X2 ): 
"SOLCEX4 à 


DOFF& 
INSERTCDONNEE #X1 ) 2. 
#7:LISTE-DEX #X8 > 
= SUCCES --<16)-- 


| OnvérififacilementparLIST que ces données sont bien 
entrées comme des faits (de 1 à 16). 











CORTEX 


SLISTCDONNEE > 


={1=<22>DO0ONNEEC NIL >. 
æ2a<4 DONNEES € C ) ). 
=3=<4)DONNEEC (B ) ). 
m4=<(6>DONNEEC(C,B)). 
#5=<(6)DONNEEC(B,C)), 


La clause =2= appelle ensuite LISTER qui, par l'intermé- 
diaire de SUITE, ramène dans l’ordre chaque donnée 
(PACK) pour l'insérer dans la liste en construction ((*X2, 
*X0), *X1) et la faire disparaître par ERASE (qui a la 
particularité d'effacer la clause courante). De sorte qu'en 
fin de résolution, les données auront disparu et la liste 
souhaitée sera affichée dans un ordre direct (INSERT) 
ou inverse (avec APPEND au lieu de INSERT). 

Voici donc la procédure complète: 


m1=<112>S0LC#X0 ): 
PART-ENSCC(A,B,C),#xB). 


é 
=1=<CS)UNIFC#X0, #X0 ). 


m1#C82LISTE-DEC #X9 ): 
SOLCKX1 2& 
DOFF& 
INSERTC DONNEEX #X1 2). 


=s2=<102LISTE-DEC #X0 2: 
LISTERCNIL,#X1 3% 
DON& 


CUT& 
UNIFCKXBAÆX 1 


m1=<112LISTERC#X0, #X1 21 
SUITEC #K2 4 


CUT& 
LISTERCCKX2) #X0 ), XX 1 ). 
#£s(3)LISTERC#X0, #X0 ). 


=1=<72SUITEC#X9 ): 
PACKÇ DONNEE 3& 
DONNEEC #X8 2% 
ERASE, 


Et le résultat de son appel: 


TE-DE< #X0 ) 


» CCA,B;,C);, 
(B,A,C),CB,C,A),CA,C,B),CC,A,B 
>,(C,B,A),(A,B),(B,A),CA,C2,CC 
>,6B,C),CC,B2,6B),CC),NIL) 

CES == 17 2=— 

DONNEE } 


Bien entendu, il sera nécessaire de redéfinir une primi- 
tive SOL(XO) pour chaque utilisation nouvelle. Mais 
grâce à ERASE, nous n'aurons jamais d'interférence du 
côté de la structure des données. 

DIFLL 

Avec PARTLL nous avons finalement défini l'inclusion 
d’une liste dans une autre (ou symboliquement d'un en- 
semble dans un autre). Nous pouvons donc parfaitement 
rebaptiser cette primitive INCLUSION. 

Dans cette perspective, il est souvent intéressant de se 
donner la différence de deux listes, ce qui reste de *L2 
quand on aretiré les éléments de *L1. La primitive DIFLL 
répond à cette exigence en développant des sous-listes 
dont la tête est constituée par les éléments successifs de 
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la grande liste, éléments que OTE-LES retire pour ne 
laisser que les éléments de ‘L2 qui n'appartiennent pas à 
"tr 


=1=<4>DIFLLCHNIL, 4x9, XK5 ). 

s2=<192DIFLLCCHXD: HAL 2, HXZs KAG D: 
PARTLLCHXE , CKXD: AK 2 Ji 
OTE-LESC#KD , #K2, 4K4 & 
DIFLLOHK1,#K4, AS), 


#$7:DIFLLECA,D),CH,6,C,D2,#X8) 


#KG = (B,C) 
= SUCCES ==(1)-- 


Si on préfère une logique de l'usage à une logique Pro- 
log, on peut permuter “L1 et *L2 par 


=1=<82DIFFLLC#X9 , 4K1 , #K2 2: 
DIFLLCHKI , #KD, #K2 ). 


et définir la différence (DIFFLL) par la liste des éléments 
de la première liste qui ne sont pas dans la seconde... 
Anticipant un peu sur UNION, donnons-nous le com- 
plémentaire de deux listes, à savoir la liste des éléments 
de l'une qui n'appartiennent pas à l'autre (mais sans que 
l'inclusion soit obligatoire). 


=1=<12>COMPLLE #0, #X1 , #42 21 
UNIONC #0 4 #X1 , KG 28e 
DIFLLC#KG, #43, KK2). 


#7: COMPLLCCA,B,C,D2,C(C,D,E,F 2, #K0) 


= (E,F) 


#0 
…— SUCCES -—(1)-— 
$ 


Un petit piège 


$7:DIFLLCCA,B),CB;A:C,F , G), #X0 ) 
= ECHEC = 
$ 


La différence, liée à l'ordre, entre ensembles et listes 
réapparaît ici. Mais il est facile de surmonter l'échec en 
revenant à la notion d'ensemble: 


m1=(4)DIFENSCNIL, kX0, #X0 ). 

=2a(232DIFENSCC#XD) #K1 2: KKZ, KKI ) 1 
PARTæENSCKX2, CKKD: #K1 ) 38 
OTE-LESC XK9 ; #K2 , KK4 38 


DIFENSC#K1 ; #K4, #XS 28 

CUT& 

EG-ENSC#X5, #43 2. 
S7:DIFENSC(A,B),(B,A,C,F,G),#X08 ) 
*x0 = (C,F,:6) 

#X8 = (F,C,6) 
*x*x0 = (F,G,C) 
#x0 = (C,G,F) 
#XG = (G,C,:F) 
#Xx0 = (G,F,C) 


-r SUCCES --(6)-- 
L 1 


Armand Biancheri 
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Le manoir 
des robots 


ne dans le 
manoir des robots. Mais 
attention, vous n’y ferez pas 
que de bonnes rencontres. 
Sélectionnez votre choix en 
actionnant la manette à droite 
ou à gauche. Validez votre 
choix en appuyant sur le 
bouton. 


Eric Brondoni 


9 60T030900 

10 CLS:SCREEN7,0,0:°++ INITIALISATION ++ 
15 CLEAR, , 62: 60SUB60000 

100 BB=0:N=0:N1=0:N2=0: VIC=0:M=0:M1=1: M2 
=1:M3=1:M4=1:M5=1 : M6= 12 CP=7 : SCORE=700: PV 
=21:P=3:F=1:Fiz1:F2=1:F3=t:F4=1:G=1:R=0: 
CLET=0:CLEA=0:CLEA1=0:CLEC=0:CLEG=0:CLED 
=0:EPEE=0: TRESOR=1 :LINGOT=1 : VEND=1 : PASSA 
GE=0:PA=0:PASS=0 

101 XC=1:X=0:v=21 

102 ? ++ JEU ++ 

200 60SUB25000:60SUB20000: GOSUB 20190: 60 
SUB20300:60SUB3C100 

210 60SUB30000:LOCATE4, 20:PRINT'Que fait 
es vous ? ":605UB61000 

220 IFXC=16 THENLOCATEA4, 20: PRINT"REGARDE 
":GOSUB30000:LOCATE4, 21: PRINT" Vous voyez 
un gessage sur La porte":PLAY"PPPPPP":6 
0TC210 

221 IFXC=1 THENGOTO250 

222 IFXC=19 THENGOSUB 20400:60T0200 

245 6070210 

250 60SUB25000: 60SUB20000: 60SUB20500: 605 
UB30100:CC=5:60SUR32000 

260 60SUB30000:LOCATE4, 20:PRINT"Que fait 
es vous ? ":60SUB61000 

265 IF XC=4THENGOTO200 

266 IF XC=16THENGOSUB30000:LOCATE4, 20:PR 
INT'Vous voyez | coffre":PLAY"PPPPPPPP": 
60TC280 

267 IF XC=34THENGOSUB30000:LOCATE4, 20:PR 
INT'Inpossible il est trop lourd !":PLAY 
"PPPPPFPPP":G0T0260 
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275 IF XC=10THENGOTO300 

276 IF XC=37ANDS={ THENGOSUB30000:LOCATE 
4,20:PRINT'Maledition !!!! un serpent'":l 
OCATE4,21:PRINT' surgit du coffre... "FL 
AY"PPPPPPPPP" 

277 IFXC=37 AND A=0 ANDS=1 THENGOSUB3000 
O:LOCATE4,20:PRINT".., et vous pique":LO 
CATE4,21:PRINT"Vous faiblisREMez":PLAY®P 
PPPFPPPPPPPP":FORI=1705:S-0:60SUB26300:6 
OSUB3O100:NEXTI 

278 IFXC=37AND A>0 ANDS=1 THENGOSUB30000 
:LOCATE4,20:PRINT".,, mais vous le neutr 
alisez":LOCATE4,21:PRINT"de justesse": PL 
AY"PPPPPPPPPPPPP":FORI=1TC5:5=0:GOSUR264 
00:60SUB30100:NEXTI 

279 IFXC=37AND 5-0 THENGOSUB30000:LOCATE 
4,20:PRINT"il est vide”:PLAY"PPPPPPPPP® 
280 60T0260 

300 60SUB25000: 60SUB20000: 60SUB20500: 605 
UB20600:60SUB30190: IFM=OTHENCOLOR4: GOSUB 
20700:COLOR7 

301 60SUR30100 

310 GOSUB:C000:LOCATE4, 20:PRINT'Que fait 
es vous ? ":60SUB61000 

320 IFXC=10ANDM=0THENGOSUB30000: LOCATEA, 
21:PRINT"Iapossible de passer.Îl faut co 
abattre":PLAY"PPPPFPPP":G0T0310 

321 IFXC=10ANDM=1THENGOTO350 

322 IFXC=7 THENGOTO250 

323 IFXC=16ANDM=OTHENGOSUR30900:LOCATES, 
20:PRINT*Un robot se tient ‘ace a vous ” 
:LOCATE4,21:PRINT'et vous barre ia route 
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":PLAY"PFPPPPPPPPP*: 6070310 

330 IFXC=31ANDM=OTHENGOSUB30200 

335 IFVIC=ITHEN M=1:CLS:VIC=0:G0T0300 
340 60T0310 

350 60SUB25000: 605UB20000: 60SUB20100: 605 
UB 20500:60SUB 20600: G0SUB30100:60SUB203 
00 

360 60SUB30090:LOCATE4, 20:PRINT'Que fait 
es vous ? “:60SUB61000: IFXC=7THENGOTO30 
0 

362 IF XC=16THEN 60SUB30000:LOCATE4,21:P 
RINT'"Vous voyez un message":PLAY"PPPPPP" 
:60T0360 

365 IF XC=10 THEN 6010400 

366 IF XC=19 THEN G0SUB30700:60T0330 

370 IF XC=1THEN 6070450 

395 60T0360 

400 60SUB25000: 60SUB20000: GOSUB20600: 605 
UB3G100:60SUB26000 

401 6OSUB30100 

405 IFN=0 THEN LOCATE20, 15: COLOR1 : PRINT 
R$(13) :LOCATE17, 15: COLOR 3: PRINTERS (9) ;6R 
$(10):LOCATE17, 16: COLOR2:PRINTERS (11) GR 
$(12) :COLOR7:LOCATE4, 21 

406 IFN=1 THEN LOCATE20,15:PRINT" ":LOCA 
TE17,15:PRINT" ":LOCATE17,16:PRINT" ": 
COLOR? 

410 60SUB30000:LOCATEA, 20:PRINT'Que fait 
es vous ? ":60SUB61900: IFXC=7THENGOTOSS 
0 

419 IFXC=18 ANDN=OTHENGOSUB30000: LOCATE4 
,20:PRINT "Vous voyez de la nourriture":P 
LAY"PPPPPPPP":G0T0410 

420 IFXC=22 ANDN=OTHENN=1: PLAY"DORE ": PV= 
PV+10: SCORE=SCORE+1000: 60SUB30 100: 60T040 


b 

440 6070410 

450 60SUB25000:60SUB20000: 60SUB20100: 608 
UB30100:IFM1=1THENCOLORS : 60SUR20750:C0LO 
R7 

460 60SUB30000:LOCATE4, 20: PRINT'Que fait 

es vous ? ":60SUB61000:IFXC=4 ANDMI=1TH 

ENGOSUR30000:LOCATE4, 21:PRINT"Iapossible 
de passer il faut combattre":PLAY"PPPPP 
“: 6070460 

475 IFXC=31ANDM1=1THENGOSUB30200 : GOSUB30 
100 

476 IFXC=1ANDM1=1THENGOSUB30000: LOCATE4, 
21:PRINT'" Impossible de passer.[l faut co 
abattre":PLAY"PPPPP":G0T0460 

477 IFXC=4ANDM1=O0THENGOTOS30 

478 IFXC=1ANDM1=OTHENGOTOSQ 

479 IFXC=16ANDMI=1THENGOSLB3000: LOCATES 
,21:PRINT'"Un robot vous barre le passage 
"3 PLAY "PPPPPPPFP":G0TO460 

480 IFVIC=1ANDMI=1THENMI=0: CLS: GOTO450 
495 6070450 


500 60SUB25009: 6081820000: 60SUB20100: 605 





UB26000:60SUB30100 

310 IF F=1 THEN LOCATE18, 16: COLOR4: PRINT 
BR${B) : COLOR7 

911 IF F=0 THEN LOCATE1B,16:PRINT" * 

520 60SUB30000:LOCATE4,20:PRINT"Que fait 


es vous ? ":60SUB61900 
525 IFXC=25 ANDF=1 THEN G60SUE26100:G60T05 
10 


926 IFXC=1 THEN 6070550 

927 IFXC=4 THEN 6070450 

328 IFXC=16 ANDF=1 THEN GOSUB30000:LOCAT 
E4,20:PRINT"Vous voyez une fiole....":L0 
CATE4,21:PRINT"contenant un etrange liqu 
ide bleu":PLAY"PPPPPPPPFPPP":G0T0520 

345 6070510 

390 60SUB25000: 60SUB20000: G0SUB20100: 605 
UB20500:60SUB20600:60SUB30190:CC=4: GOSUB 
32000 

360 G0SUB30000:LOCATE4, 20:PRINT'Que fait 
es vous ? ":60SUB61000 

365 IFXC=4THENSO0 

566 IF XC=14 AND R=0 THENGOSUB30000:LOCA 
TE4,20:PRINT"Vous voyez Î coffre":PLAY"P 
PPPPPPP":60T0560 

967 IF XC=34ANDR=OTHENGOSUB30000:LOCATE4 
520: PRINT" Iapossible il est trop lourd ! 
"2 PLAY" PPFPPPPPP":G0TO560 

968 IF XC=37ANDR=OANDNI=OTHENGOSUB30000: 
LOCATE4,20:PRINT"Vous y trouvez de la no 
urriture":PLAY"PPPPPPPP":R=1:60T0560 

969 IF XC=16 AND R=1 THENCOLOR3:LOCATE14 
LS: PRINTORS (14) ;6R$ (15) : GOSUB30009:LOCA 
TE0,20: PRINT" Vous voyez la cle de la sal 
le du TRESOR":PLAY"PPPPPPPPPP":G0TO560 
370 IF XC=22 ANDNI=OTHENFORI=0T09: G0SUBZ 
b200:NEXTI:N1=1:R=1:60T0560 

371 IF XC=34ANDR=ITHENCLET=1:R=0:LOCATE 
4,13:PRINT" ":60T0560 

972 IF XC=10THENGOTO600 

573 IF XC=7THENGOTO650 

374 IF XC=1THENGOTO800 

596 6070560 

600 GDSUB25000: 60SUB20000: G0SUB20600: 605 
UB30100:60SUB26000 

603 IF FI=1THENLOCATELB, 16: COLORL:PRINTG 
R$(8) 

604 IF CLEA=OTHENLOCATE20, 16: COLOR5: PRIN 
TOR${16);6R$(17) 

610 GOSUB30000:LOCATE4, 20: PRINT"Que fait 
es vous ? ":60SUB61000 

615 IF XC=16 AND F1=1THENGOSUB30000:LOCA 
TE4,20:PRINT"Vous voyez une fiole conten 
ant":LOCATES,21:PRINT"...un etrange breu 
vage rouge":PLAY"PPPPPPPPPPPP" 

618 IF XC=18 AND CLEA=OTHENGOSUR30000:LO 
CATE4,20:PRINT"Vous voyez une CLE mauve" 
:PLAY"PPPPPPPPF® 

617 IF YC=25 AND F1=1THENGOSUR62000 
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618 IF XC=34 AND CLEA=OTHENLOCATE20,16:P 

RINT" ":CLEA=1 

619 IF XC=7 THEN 6070550 

648 60T0610 

650 60SUB25000:G60SUB20000:G0SUE20600: GDS 

UB20500:60SUB30100:CC=7: 60SUB27000 

660 60SUB30000:LOCATE4, 20: PRINT"Que fait 

es vous ? ":60SUB61000 

665 IFXC=10THEN 6070550 

66b IFXC=16THEN GOSUB30000:LOCATEA, 20:PR 

INT"Vous voyez une araoire":PLAY"PPPPPFP 

| de 

667 IFXC=37AND CLEA=1 ANDEPEE=OTHEN G60SU 

B30000:LOCATE4,20:PRINT"Vous voyez une E 

PEE LASER":PLAY"PPPPPPPPPP® 

668 IFXC=34AND CLEA=1 THEN EPEE=1:G60SUB3 

0000:LOCATE4, 20:PRINT"Grace a cette epee 
lazer":LOCATES,21:PRINT"Vous allez pouv 

oir vous battre":LOCATE4,22:PRINT"contre 
les seilleurs robots":LOCATE4, 23: PRINT" 

du aanoir.":PLAY"PPPPPPPPPPPPPPPPP" 

669 IFXC=37AND CLEA=0 THEN GOSUB30000:LO 

CATE4,20:PRINT"Cretin!! vous n’avez":LOC 

ATE4,21:PRINT"pas la clé":PLAY"PPPPPPPPP 

p" 

670 IFXC=7 THEN 700 

698 G60TO660 

700 G0SUB25000: 60SUB20000:GOSUB20600: 605 

UB20500:60SUB30100:MM=1 

709 IFN2=1THENGOSUB27100 

710 60SUB30000:LOCATES, 20:PRINT"Que fait 

es vous ? ":60SUB61900 

711 IFXC=16 ANDM2=1THEN GOSUB30000:LOCAT 

E4,20:PRINT"Vous voyez le gardien de":L0 

CATE4,21:PRINT"la salle du TRESOR":PLAY" 

PPPPPPPPPPP* 

712 IFXC=31 AND EPEE=0 ANDM2=1 THEN GOSU 

B30000:LOCATE4,20:PRINT"Vous vous attaqu 

ez a un robot":LOCATE4,21:PRINT"19 fois 

superieur a vous et":LOCATE4,22:PRINT"vo 

us n'avez seme pas d’arse":LOCATE4,23:PR 
INT"... jeune FRELUQUET'!!11":PLAY"L98PPP 

PPP":GO0SUB62000 

713 IFXC=31 AND EFEE=1 ANDM2=1 THEN 60SU 

B30200:60SUB39100:1IF VIC=1THEN M2=0:CLS: 

607070 

714 IFXC=10 THEN650 

715 IFXC=7 ANDM2=0 ANDCLET=0 THEHGOSUB30 

000:LOCATE4,20:PRINT"Vous vous trouvez f 

ace à la porte":LOCATE4,21:PRINT"de la 5 
alle du tresor @ais vous":LOCATEA4,22:PRI 

NT'n’avez pas la clé!!!11":PLAY"PPPPPPPP 
PPPPPP" 

716 IFXC=7 ANDM2=0 ANDCLET=0 THENGOSUB30 


000:LOCATE4,20:PRINT"vous auriez du rega 


rder 2 fois “:LOCATE4,21:PRINT"dans cert 
aines salles ":LOCATE4,22:FRINT'ainsi vo 
us l’auriez trouvee!!11":PLAY"PPPEPPPPPP 
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PPPPPP* 

717 IFXC=7 ANDM2=0 ANDCLET=1 THENG6OSUB30 
900:LOCATE4, 20:PRINT"la clé que. vous pos 
sedez “:LOCATE4,21:PRINT"vous peraet d’o 
uvrir la porte ":PLAY"PPPPPPPPPPPPP": GOT 
0750 

749 6070710 

750 G60OSUB25000: 60SUB20000: 60SUB20500: 605 
UB30100 

758 IF LINGOT=1THENCL=3: 60SUB32100 

759 IF TRESOR=1THENCC=3: 60SUB32000 

760 6OSUB30000:LOCATE4, 20:PRINT"Que fait 
es vous ? ":60SUB61000 

768 IFXC=16 AND LINGOT=I AND TRESOR=OAND 
EB=0 THEN GOSUB30000:LOCATES, 21: PRINT" Vo 
us voyez un tas de lingots d’or":PLAY"PP 
PPPPPPP":BB=1 

769 IFXC=15 AND LINGOT=1 AND TRESOR=1 AN 
DBB=Q THEN GOSUR30000:LOCATEA, 21:PRINT* 
Vous voyez un coffre":PLAY"PPPPPP" 

770 IFXC=10 THENG6OTO700 

771 IFXC=34 AND LINGOT=1 ANDTRESOR={ANDE 
B=OTHEN CC=0:60SUR32000: TRESOR=0: SCORE=S 
CORE+5000:G0SUB30100 

772 IFXC=37 AND LINGOT=1 ANDTRESOR=1ANDE 
B=O0THEN G0SUB30000:LOCATEZ, 21:PRINT"Ce c 
coffre est plein de pieces d’or":PLAY"FPP 
PPPPPPP" 

773 IFXC=34 AND LINGOT=1 ANDTRESOR=0 AND 
BB=ITHEN CL=0:60SUB32100:LINGOT=0: SCORE 
=SCORE+5000: GOSUR30100 

790 6010760 

800 60SUB25000: 60SUR20000: 60SUB20100: 605 
UB30100:MM=4 

808 IFPA=1THENGOSUE20600 

809 IFM3=1THENGOSUB27100 

810 GOSUB30000:LOCATE4, 20: PRINT"Que fait 
es vous ? “:60SUB61000 

811 IFXC=16 ANDM3=1THEN G0SUB30000:LOCAT 
E4,20:PRINT"Vous voyez un gardien qui":L 
OCATE4,21:PRINT"vous barre le passage":F 
LAY"PPPPPPPPPPPP" 

812 IFXC=31 AND EPEE=0 ANDM3=1 THEN GOSU 
R30000:LOCATE4,20:PRINT"Vous vous attaqu 
ez a un robot":LOCATE4,21:PRINT"10 fois 
superieur a vous et":LOCATE4,22:PRINT"vo 
us n'avez aeme pas d’arme":LOCATE4,23:PR 
INT*,,.jeune FRELUQUET!! 111": PLAY"LO6PPF 
PPP":G0SUB62000 

813 IFXC=31 AND EPEE=1 ANDM3={ THEN G60SU 
B30200:60SUB30100: IF VIC=1THEN M3=0:CLS: 
60T0800 

814 IFXC=18 ANDM3=OANDPA=OTHEN GOSUE2080 
0:60SUB30000:LOCATE4,20:PRINT"Vous avez 
decouvert une":LOCATES, 21:PRINT"porte 5e 
crete ...celle de la cave":PLAY"FPFPPPPP 
PPFPPPP":PA={ 

815 IFKC=1 ANDMS=1THEN GOSUBSGON0: LOCATE 
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4,20:PRINT"Ispossible de passer:play"PPP 

PPPPPPP" 

816 IFXC=7 ANDM3=0 ANDCLEC=0 ANDPA=1THEN 
6OSUB30000:LOCATE4, 2C:PRINT'La porte es 

t fermes 3 clé ":LOCATEA4,21:PRINT'allez 
chercher la clé de la cave":PLAY"PPPPPPP 

PPPPPPPPPPP* 

817 IFXC=1 ANDM3=-0 THEN G60T0850 

818 IFXC=-4 ANDM3=0 THEN 60T0550 

819 IFXC=7 ANDM3=0 AND PA=1ANDCLEC=1 THE 

N 60SUB30900:LOCATE4, 20:PRINT"La cle que 
vous possedez ":LOCATE4,21:PRINT"vous p 

erset de penetrer “:LUCATE4,22:PRINT"dans 
la cave":PLAY"PPPPPPPPPPPPPPPPPP®*:60T02 
100 

849 GOTO 810 

850 60SUB25000: 60SUB20000: 60SUB20100:60S 
UB30100 

859 IF VEND=ITHEN ATTRBI, 1:COLOR2:LOCATE 
19,9:PRINTERS (50) :6R$ (51) :LOCATE17,11:PR 
INTGRS (52) :6R$ (53); GR$ (54) :LOCATE17,13:P 

RINTERS 155) ; 6R$ (96) ; 6R$ (57) : ATTRBO, 0: COL 

OR? 

860 GOSUB30000:LOCATE4, 20:PRINT"Que fait 

es vous ? ":60SUB61000 

885 IFXC=16 ANDVEND=1THEN GOSUB30000:LOC 

ATE4,20:PRINT"Vous voyez un hosme qui vo 

us “:LOCATES,21:PRINT'"salut amicalement 

et vous propose":LOCATE 4,22:PRINT"d’ech 

anger vos richesses contre ":LOCATE4,23: 

PRINT"de la nourriture":PLAY"PPPPPPPPPPP 

PPPPPPPPPPP" 

870 IF XC=!3ANDVEND=1AND TRESDR=OANDLING 

OT=OTHEN PLAY"P":FORI=1T020:60SUB28209:N 

EXTI: VEND=0 

871 IF {C=13ANDVEND=1AND TRESOR=1ANDLINE 

OT={THEN 6OSUE39000:LOCATE4, 20:PRINT"Cre 

tin!!vous n'avez rien du tout":PLAY"PPPP 

PPPPPPPPP" 

875 IF XC=4THEN 6070800 

876 IF XC=1THEN 6070900 

899 GOTO 860 


900 G0SUB25000: 60SUB20000: 60SUB20100: 605 


UB20600: G0SUB20500: GOSUR3C100 

915 GOSUB30000:LOCATEA, 20: PRINT"Que fait 
es vous ? ":60SUB41000 

911 IFXC=4THENBS0 

912 IFXC={THEN9S0 

913 IFXC=10THEN2000 

9i4 IFXC=7THEN2050 

945 GCTO910 

959 505UB25000: 60SUB20000: GOSUB20400: G0S 
UB30100 

955 IF M4=1THEN COLOR1: 60SUB20700:COLOR7 
956 IF PASSAGE=ITHEN 60SUB20100 

960 5050820000: LOCATE4, 20:PRINT"Que fait 
es vous ? ":60SUB61000 

965 IF XC=1ANDM4=1THEN GOSUB30000:LOCATE 
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0,20:PRINT" Impossible de passer il faut 

se battre":PLAY"PPPPPPPPPPPPPP" 

96b IF XC=7ANDMA=1THEN GOSUE30000:LOCATE 

0,20:PRINT'" Impossible de passer il faut 
se battre":PLAY"PPPPPPPPPPPPPP" 

967 IF XC=7ANDM4=OTHEN 60T01000 

968 IF XC=1ANDMA4=OANDPASSAGE= {THEN G0TO! 
199 

969 IF XC=16ANDM4=0ANDPASSAGE=OTHEN 60SU 

E29100:G60SUR30000:LOCATE4, 20: PRINT "Vous 

trouvez un passage secret !":PLAY"PPPPPPP 

FPP":PLAY"DOREDO" : SCORE=SCORE+3000 : GOSUB 

30100:PASSAGE=1 

970 IF XC=16ANDM4=1THEN GOSUB30000:LOCAT 

E4,20:PRINT'"un horrible robot vous barre 
":LOCATE4,21:PRINT'le passage! !!":PLAY" 

PPPPPPPPPP* 

971 IF XC=31ANDMA4=ITHEN G60SUB30200:GOSUB 

39100:1F VIC<1THEN M4=0:SCORE=SCORE+6000 

:G0SUB30100:PLAY"DOREREDO" :CLS:60T0950 

972 IF XC=4ANDM4=OTHEN G0T0900 

999 6070960 

1000 60SUB25000:60SUB20000: 60SUB20500: 60 

SUB20600: 60SUB30100: 60SUB26000 

1005 IFN2=0 THEN LOCATE20,15:COLOR1:PRIN 

T6R$(13) :LOCATE17, 15:COLORS:PRINTERS (9); 

GR$(10) :LOCATE17, 16: COLOR2:PRINTERS (11); 

GR$(12) :COLOR7:LOCATEA, 21 

1098 IFCLEAI=0 THEN LOCATE20,17:COLORS:P 

RINTOR$ (18) ;6R$ 117) :COLOR7 

1910 GOSUB30000:LOCATE4, 20:PRINT'Que fai 

tes vous ? ":60SUB61900 

1011 IFXC=10THEN 950 

1012 IFXC=7THEN 1150 

1020 IFXC=18 ANDN2=0THEN G0SUB30000:LOCA 

TE4,20:PRINT"Vous voyez de la nourriture 

“2 PLAY"PPPPPPPPPPPP" 

1021 IFXC=16 ANDCLEAI=OTHEN G6OSUB30000:L 

OCATE4, 20: PRINT" Vous voyez une cle mauve 
"2 PLAY"PPPPPPPPPPPP" 

1023 IFXC=22THENLOCATE20, 15: PRINT" ":LOC 

ATE17,15:PRINT" ":LOCATEI7,16:PRINT" 
:60SUB30000:LOCATE4, 20:PRINT"Soudain vou 
s ressentez une douleur":LOCATE4,21:PRIN 

T'a l’estomac":LOCATES,22:PRINT"Votre #0 

rt est certaine":PLAY"PPPPPPPPPPPPPPPP*: 

60SUR#2000 

1025 IF XC=34 AND CLEAI=OTHEN LOCATE20, 1 
J:PRINT® ":CLEAI=I 

1049 GOTO10! 

1100 6OSUB25000:60SUB20000: G0SUB30100: 50 

SUB26000 

1105 IF CLEC=OTHEN LOCATE18,15:COLOR4:PR 
INTERS (16) ;6R$ 117) : COLOR7 

1110 GOSUE30000:LOCATE4, 20:PRINT"Que fai 

tes vous ? ":60SUB61000 

1111 IFXC=4THEN 950 

1112 IF CLEC=OANDYC={6THEN GOSUB30000:L0 
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CATE4,20:PRINT"Vous voyez la cle de la c 
ave":PLAY"PPPPPPPPPPPPP* 

1113 IF CLEC=OANDXC=34THEN LOCATE18, 15:P 
RINT" ":60SUB30000:LOCATES, 20: PRINT "Ave 
c cette cle vous pouvez ":LOCATES,21:PRI 
NT'esperer ouvrir la porte de la cave":P 
LAY"PPPPPPPPFPPPPPPPPP":CLEC=1 

1114 IF CLEC=1ANDXC=16THEN GOSUB39000:L0 
CATE4,20:PRINT"Rien de particulier ":PLAY 
"PPPPPPPPPP" 

1149 GOTO1110 

1150 60SUB25000: 60SUB20900: 60SUB20500: 60 
SUB30100:CC=7:60SUB27000 

1160 GOSUB30000:LOCATE4, 20:PRINT"Que fai 
tes vous ? ":60SUB61000 

1165 IFÂC=10THEN1000 

1186 IFXC=16THENGOSUB30000:LOCATE4, 20:PR 
INT'Vous voyez une araoire...":PLAY"PPPP 
PPPPFPPP" 

1167 IFXC=37 ANDCLEA1=0 THENGOSUB30000:L 
OCATE4,20:PRINT"Cretin vous n’avez pas 1 
a cle":PLAY"PPPPPPPPPPPPPP" 

1168 IFXC=37 ANDCLEAI=1 THENGOSUB30000:L 
OCATE4,20:PRINT"vous trouvez la cle du g 
renier ":PLAY"PPPPPPPPPPPPPP" 

1169 IFXC=34 ANDCLEAI=1 THENGOSUB30000:L 
CCATE4,20:PRINT"6race a cette cle vous a 
11ez":LOCATE4,21:PRINT"pouvoir aller au 
grenier ":PLAY"PPPPPPPPPPPPPP":CLEG=1 
119? S0T01160 

2000 CF=7:G60SUB25000: 60SUB20000: GOSUB206 

00: 60SUB30100: COLOR4: G0SUB29900: COLOR7 

2001 IFPASS=1THENGOSUB20500 

2010 60SUB30000:LOCATE4,20:PRINT"Que fai 

tes vous ? ":60SUR61000 

2015 IFXC=16 AND PASS=0 THEN 60SUB30000: 

LOCATE4,20:PRINT"Vous voyez un lit qui v 

ous parait":LOCATES,21:PRINT'"bien confor 

table et vous avez ":LOCATEA4,22:PRINT"s0 

ameil":PLAV"PPPPPPPEPPPPPPPPPP" 

2018 IFXC-284 ANDD=OTHEN 60SUB30000:LOCAT 

E4,20:PRINT"Vous venez de faire un bon 
LOCATE4, 21:PRINT"roupillon":PLAY"PPPPPP 

PPPPPPPPPPPP":SCORE=SCORE+3000: PLAY"DORE 

DO": GOSUR3O 100: PY=PU+5: PLAY"LASI": G0SUBS 

0100:D=1:PASS=1 

2017 IF XC=7THENGOTO900 

2018 IFXC=16 ANDPASS=ITHEN GOSUB20500:60 

SUB39000:LOCATE4, 20:PRINT"Vous decouvrez 
une porte secrete.,..":LOCATE4,21:PRIMT" 

celle du grenier ":FLAY"FPPPPPPPPPPPPPPPP 
pe 

2019 IF XC=10 ANDPAGS=! AND CLEG=1THENGO 
105000 

2028 IFXC=10 ANDPASS=1ANDCLEG=0 THEN 605 
UB30000:LOCATE4, 20:PRINT" Impossible! ‘Vou 
s n'avez pas la cle":PLAY"PPPPPPFPPPPPPP 





2049 6OTO2010 

2050 60SUB25000: G0SUB20000: 60SUB20500: 60 
SUB26000: S0SUB30100 

2051 IF F4=1THENLOCATELS, 16: COLOR7: PRINT 
6R$ (8) 

2052 IF F4=OTHENLOCATELS, 16: PRINT" 
2060 GOSUB30000:LOCATES, 20:PRINT"Que fai 
tes vous ? ":G0SUB61000 

2065 IFXC=10THENG6OTO900 

2066 IF XC=16ANDF4={THENGOSUB30000: LOCAT 
E4,20:PRINT"Vous voyez 1 fiole":PLAY"PPP 
PPPPP" 

2067 IF XC=25ANDF4=1THENFORI=0709: GOSUE? 
6200: NEXTI:F4=0: 60702051 

2099 60702060 

2100 CP=4:60SUB25000: G0SUB20000: 60SUB206 
00: 60SUB20500: 60SUB30100 

2105 IFMS=1THEN COLOR! :60SUB 29509: COLOR 
4 

2110 GOSUB30000:LOCATE4, 20: PRINT"Que fai 
tes vous ? ":G60SUB61000 

2120 IFXC=16 ANDMS=1THEN 60SUB30000:LOCA 
TE4,20:PRINT"Vous voyez le gardien de la 
cave":PLAY"PPPPPPPPPPPPPPPP" 

2121 IFXC=16 ANDMS=OTHEN 60SUB30000:LOCA 
TE4,20:PRINT'Rien de garticulier":PLAY"P 
PPPPPPPPPP" 

2122 IFXC=10 ANDMS=1THEN GOSUB30000:LOCA 
TE4,20:PRINT"Iapossible!!,il faut se bat 
tre":PLAY"PPPPPPPPPPPPF" 

2123 IFXC=7 ANDMS=1THEN 60SUB30000:LOCAT 
E4,20:PRINT"Impossible!!,il faut se batt 
re":PLAY"PPPPPPPPPPPPP" 

2125 IFXC=1OANDMS=OTHEN CP=7: 6070800 
2126 IFXC=31ANDMS={THEN 60SUB30200:GOSUB 
30190:1IF VIC=ITHEN CLS: SCORE=SCORE+7000: 
PLAY"DOREDO":M5=0:60T02100 

2127 IFXC=7 ANDMS=OTHEN 60703000 

2149 GGT02110 

3000 50SUB25000: 60SUB20000: 60SUB20500: 60 
SUB20100:60SUB26000:60SUB30100 

3001 IF F2=0 THEN LOCATEI8,16:PRINT" " 

3002 IF F2=1 THEN LOCATE18, 16: COLDR2:PRI 

NTGR$ (8) : COLOR 

3010 GOSUB30000:LOCATEA, 20:PRINT"Que fai 

tes vous ? “:GOSUB61000 

3020 IFXC=18 ANDF2=1THEN GOSUB30000:LOCA 
TE4,20:PRINT'Vous voyez une fiole conten 

ant":LOCATE4,21:PRINT"un etrange breuvag 
e verdatre":PLAY*PPPPPPPPPPPPFP" 

39021 IFYC=25 ANDF2=1THEN GOSUB30000:LOCA 
TE4,26:PRINT"Ce breuvage vous redonne de 
5 forces":PLAY"PPPPPPPPPPPPPPPPPP":FORI= 
OTOIG: 60SUB26200: NEXTI:F2=0: 60703001 

3022 IF XC=10 THEN 60102100 

3023 IF XC=1 THEN G0T03050 

3049 60103910 

3056 G0SUB25000: 60SUB20000: 60SUB26000: 60 


REPAIRE 


SUB20300: 60SUB30100 

3051 IF CLEO=OTHEN LOCATE7, 16:COLOR1:PR 
INTORS (14) ;6R$ (15) : COLOR 

3052 IF CLEO=ITHEN LOCATE17,{6:PRINT" " 

3060 60SUB30000:LOCATE4,20:PRINT"Que fai 

tes vous ? ":GO0SUB41900 

3061 IF XC=18 AND CLEO=0 THEN GOSUB30000 

LOCATEA4,20:PRINT" Vous voyez une cle":PL 

AY" PPPPPPPPPPPPPPPP" 

3062 IF XC=16 THEN GOSUB30000:LOCATE4, 20 

:PRINT'"Vous voyez un sessage":PLAY"PPPPP 

PPPPPPPPPPP" 

3063 IF XC=34 ANDCLEC=0 THEN CLEO={: 6070 

3051 

3064 IF XC=19 THEN GOSUB30800: 60T03050 

3065 IF XC=4 THEN GOTO3000 

3099 GOTO3060 

5000 CP=1:G60SUB25000: 60SUB20000: 60SUB205 

00: G0SUB29600: GOSUB30100: IFM6=1THENGOSUE 

29500 

5001 G6OSUB30100 

3010 GOSUB30000:LOCATE4, 20: PRINT'Que fai 

tes vous ? ":60SUB61000 

3020 IFXC=10ANDME=1 THENGOSUB30000: LOCATE 

4,21:PRINT"Impossible de passer. Il faut 

combattre":PLAY"PPPPPPPP":G60T05010 

5021 IFXC=1GANDH6=OTHENGOTO5050 

3022 IFYC=7 THENGOTO2000 

3023 IFXC=16ANDM6=1 THENGOSUB30000:LOCATE 

4,20:PRINT"Un robot se tient face a vous 
":LOCATE4,21:PRINT'et vous barre la rou 

te":PLAY"PPPPPPPPPPP":GOTO05019 

9030 IFXC=3S1ANDM6=! THENGOSUB30200 

9035 IFVIC<ITHEN Mé=0:CLS:VIC=0: 60705000 

5049 G6OT02060 

9050 GOSUB25000:G60SUB20000: GOSUB20400: 60 

SUB20100:60SUB28000: 60SUB30100 

S051 IF F3={THENLOCATEL8, 16: COLOR3: PRINT 

ER$(8) :COLOR7 

3052 IF F3=OTHENLOCATE1B, 18: PRINT" " 

9960 60SUB30000:LOCATE4, 20:PRINT"Que fai 

tes vous ? ":60SUB61000 

9066 IF XC=16ANDF3=1THENGOSUB30000: LOCAT 

E4,20:PRINT"Vous voyez 1 fiole":PLAY"PFP 

PPPPP" 

5067 IF XC=25ANDF3=1THENGOSUB62000 

9070 IFXC=1THENGOTOS150 

9080 IFXC=7THENGOTO5000 

3090 60705060 

5150 GOSUB25000:G0SUB20000: GOSUB20 100: 60 

SUB30100 

3160 GOSUB30000:LOCATEA, 20:PRINT"Que fai 

tes vous ? ":60SUB61000 

5175 IFXC=16THENGOSUB30000: LOCATE4, 20:PR 

INT'Vous vous trouvez face a la porte":L 

OCATEA4,21:PRINT"qui donne sur la sortie! 

LULIE:PLAY"PPPPPPPPPPPPPPPPPPPPP* 

5189 IFXC=1ANDCLEO=OTHENGOSUB30000: LOCAT 
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E4,20:PRINT"Abruti vous n'avez pas la cl 
e":PLAY"PPPPPPPPPPPPPPPPPPP" 

918; IFXC=4THENGOTO5050 

5182 IFXC=1ANDCLEO=1THENGOTO37000 

5190 60705160 

19999 END:° ++ SOUS PROGRAMMES ++ 
20000 CLS:B0X (128,40)-1192,104),CP 
20001 LINE(128,40)-(8,24),CP 

20002 LINE(192,40)-(304,24),CP 

20003 LINE(192,104)-(304, 160), CP 

20004 LINE(128,104)-(8,180),CP 

20005 LINE(8,24)-(8,160),CP 

20006 LINE(304,24)-(304, 160) ,CP 

20007 RETURN 

20100 BOX (144,64)-(176, 104) ,CP:RETURN 
20500 COLOR3:LOCATE19, 9: PRINTERS (58) ; 6R$ 
(59) 

20501 LOCATE19, 10:PRINTGRS (60) ;GR#(61):C 
OLOR7:RETURN 

20400 CLS :SCREENO, 7, 1:LOCATE7, 7: PRINT"V 
ous venez de penetrer dans" 

20401 LOCATE7,9:PRINT"LE MANOIR DES ROBO 
T5. Mefiez " 

20402 LOCATE?, 11:PRINT"vous !!,,," 

20403 LOCATE7,13:PRINT"Chaque pas que vo 
us faites est" 

20404 LOCATE7,15:PRINT"un pas de plus ve 
rs la aort":FORI=1T02500:NEXTI:CLS:SCREE 
N7,0,0:RETURN 

29500 LINE (72,64)-(72,128) ,CP 

20501 LINE{72,64)-(40, 64) ,CP 

20502 LINE (40,64)-(40,144),CP:RETURN 
20600 LINE(272,64)-(272,144),CP 

20601 LINE(272,64)-(249, 64) ,CP 

20602 LINE (240,64)-(240, 128) ,CP:RETURN 
20700 ATTRB1,1:LOCATE19, 12:PRINTERS (0) ;6 
R${1) 

20701 LOCATE17, 14: PRINTGRS (2) ;GR$ (3) :6R$ 
{4) 

20702 LOCATE17, 16: PRINTGRS (5) ; GR$ (6) ;GR$ 
(7) :ATTREO, 0: RETURN 

20750 ATTRBI,1:LOCATE19,12:PRINTORS (19) 
20751 LOCATELT, 14: PRINTORS (20) :6R$(21):6 
R$(22) 

20752 LOCATEL7, 16: PRINTORS (23) :6R$ (24) :6 
R$(25) :ATTRBO, 0: RETURN 

20800 LOCATE17,15:COLDR!:PRINTORS (13) :PL 
AY"PFPPPPFPPPP":RETURN 

23320 ,0,0,14,31 

25000 PY=PV-1:SCORE=SCORE+200: A=INT (RNDY 
2):B=INT {RND#5) 

25100 A=INT{RNDE2) : RETURN 

26000 LINE(128,152)-(128,144},2 

28001 LINE(128,144)-1136,112),2 

26002 LINE(136,112)-(184,112),2 

26003 LINE(184,112}-1190,144),2 

26004 LINE(199,144)-(190,152),2 

26005 LINE(190,144)-(128, 144) ,2:RETURN 


25 _. : 
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26100 B=INT{RNDI3) : IFB>OTHENPLAY"P":FORS 
S=0T010:60SUB26200:NEXTSS:F=0 

26191 IFB=OTHENPLAY"P":GOSUB30000:LOCATE 
4,20:PRINT"Vous ne suportez pas l'alcool 
"2 LOCATE4, 22: PRINT" vous etes ivre":PLAY" 
PPPPPPPPPPPPPP":FORI=1T0 10:G0SUB26300:N 
EXTI 

26102 RETURN 

25150 MA=INT (RNDY#4) : IFMAÏOTHENPLAY"P":F0 
R5S=0T010:G0SUB26200:NEXTSS:F=0 

26200 PY=PU+1:PLAY"D0":G60SUB30100: RETURN 
26300 PV=PV-1:PLAY"SI":60SUB30100: RETURN 
26400 SCORE=SCORE+300:PLAY"P":BEEP:GOSUB 
30100:RETURN 

27000 LINE (232,64)-1232,122) ,CC:LINE (232 
,b4)-(208,64),CC:LINE(208,44)-(208,112), 
CC:LINE (220,64)-(220,117) ,CC:RETURN 
27100 ATTRE!, 1:COLORMM:LOCATE17, 10: PRINT 
6R$ (28) :6R$(27) ;GR$ (28) :LOCATE17, 12:PRIN 
TOR$(29):6R$ (30) ;GR$(31) :LOCATE17,14:PRI 
NTGRS (32) :GR$ (33) :GR$ (34) :COLOR7: ATTRBO, 
O:RETURN 

29000 BOX(144,88)-(194,112):BOX (136,144) 
-(192,152):B0X(144,88)-(184,104):LINE(13 
6,144)-(136,15B):LINE(192,144)-(192,158) 
:LINE(144,104)-(136,144):LINE(184,104)-{ 
192,144) :RETURN 

29500 ATTRBI, 1:LOCATE17, 10: PRINTER$ (41): 
GR$ (42); 6R$(43) :LOCATE17, 12:PRINTGERS (44) 
36R$ (45) ;GR$ (46) :LOCATE17, 14: PRINTERS (47 
};6R$ (48) ;6R$ (49) : ATTRBO, 0: RETURN 

30000 B=INT (RND#3) : A=INT (RND#2) : GOSUB251 
09:BOXF (0,160)-(320, 200), 0: 60SUB30100:RE 
TURN 

30100 SCORE 

30110 LOCATE®, 1:COLOR1:PRINT"Score: ":S6C 
CRE: LOCATE27, 1:COLOR#:PRINT"PV: ":PVY:C0L 
OR7 

30111 IFPY=<OTHEN G60SUB62000 

30112 RETURN 

30290 GOSUB30000 

30300 IFAD=1THENP=P+1:LOCATES, 21: COLOR: 
PRINT" Vous l’avez touche !!!!":GCORE=SC0 
RE+10:G60SUR30100:COLOR7: PLAY"PPPFPP" 
30310 IFA=OTHENP=F-1:LOCATE4, 21:COLOR4:P 
RINT"IL vous a touche! !!!!":PV=PV-{:60SÙ 
B30100:COLOR7:PLAY"PPPPP" 

30320 IFP=OTHENP=3:PU=PV-1: G0SUB30100 
30330 IFF=STHENP=3: SCORE=SCORE +400: GOSUB 
30100:60SUB30000:LOCATE4,21:PRINT"VOUS A 
VEZ GAGNE":VIC=1:PLAY"PPPPPPP":PU=PU+#I:R 
ETURN 

30340 IFPV=<COTHEN COLORS:LOCATEA, 21: G0SU 
B62000 

30350 G0T030200:RETURN 

30700 CLS:SCREENO, 7,2: LOCATES, 12:PRINT"N 
’hesitez pas à REGARDEr 2 fois...":LOCAT 
ES, 14:PRINT"dans certaines pieces” :PLAY 
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“PPPPPPPPPPPPPPPPPPP":CLS: SCREEN7, 0,0:RE 
TURN 

30800 CLS:SCREENO, 7,4 

30801 LOCATE4,11:PRINT"Cette cle vous pe 
raettra de * 

30802 LOCATE4,13:PRINT"sortir de ce sanc 
ir de salheur* 

30804 LOCATE4, 15:PRINT"La sortie se trou 
ve au grenier ":PLAY"PPPPPPPPPPPPPPPPPPPP 
PPPPPPPPPPPPPPPPPPP":CLS:SCREENO, 0, 0:RET 
URN 

30900 CLS:SCREENO, 0,0 

30901 LOCATEO, 4: ATTRB1,0:COLOR1:PRINT"Le 
sanoir des robots" 

30902 LOCATEZ, 9: ATTRBO,0:COLORS:PRINT"Ap 
pretez vous a" 

30903 LOCATE2, 11: ATTRBO, Q:COLORS: PRINT"p 
enetrez dans * 

30904 LOCATE2, 13: ATTRBO, 0: COLORS:PRINT"c 
e sinistre aanoir..,":COLORO:60SUB62590: 
:60TD10 

32000 BOX (200,136)-(224,152),CC 

32001 LINE {168,136)-(200,152),CC:LINE (20 
8,128)-(200,136),CC:LINE(208,128)-(176,1 
12),CC:LINE(216,128)-(208,128),CC:LINE(1 
68,136)-(168,120) ,CC:LINE(168,120)-{200, 
136),CC 

32002 LINE(216,128)-(224,13b),CC:LINE (18 
4,112)-(216,128),CC:LINE(176,112)-(184,1 
12} ,CC:LINE(168,120)-(176,112) ,CC:RETURN 
32100 BDX(120,140)-(160,144),CL:BOX (128, 
136)-(152,144),CL:B0X(136,132)-(144,144) 
,CL:RETURN 

39000 CLS:SCREENO, 0,0 

39001 LOCATE2,0:COLOR1:ATTRB1,0:PRINT"Sc 
ore:";SC0RE 

39002 LOCATEZ, 9:COLOR5: ATTRBO, 0: PRINT"FE 


39003 LOCATE2, 13: COLOR4: PRINT" Vous etes 
le seul a etre sorti" 

39004 LOCATE?, 15: COLDR4: PRINT" vivant du 
tristesent celebre" 

39005 LOCATE?, 17:COLOR2:PRINT "Manoir des 
robots":COLORO:60SUB 62590 

077392 ++ CARACTERES GRAPHIQUES ++ 
60000 DEFGR$(0)=60,126,219,255,255,231,1 

26,60 

60001 DEFGR$(1)=0,0,0,0,0,0,0,32 

60002 DEF6R$(2)=15,15,15,13,13,13,12,8 

60003 DEFGR$(3)=255,295,295,255, 299,255, 
255,60 

60004 DEF6R$(4)=240,240,240,176,176,176, 
48,16 

60005 DEF6R$(5)=0,1,7,15,31,15,7,2 

60008 DEFBR$S(8)=255, 255,295, 255,255,255, 
0,0 

60007 DEFSR$(7)=0,128,224,240, 249, 240,22 
4,64 


TEO N°13 - AVRIL 4987 


60008 DEFGRS(8)=60, 24,24, 60,126, 126,126, 
80 

40009 DEFBRS(9)=0,0,3,3,7,15, 28,21 

60010 DEFGRS(10)=0,0, 192, 192, 224,240, 168 
,88 

80011 DEFBRS(11)=31,127,128,255, 128,255, 
128,255 

60012 DEFGRS(12)=248, 254, 3,255, 1,255, 1,2 
55 

80013 DEFGR$(13)=24, 24, 24, 36, 36, 80, 60, 60 
80014 DEFGRS(14=0,0,0,63,127,58,0,0 
80015 DEFGR$(15)=12, 30,83, 255,255, 255, 30 
,12 

60018 DEFGRS(16)=0,0, 0,255, 255,112, 112,1 
12 

80017 DEFGRS(17)=28, 82, 119,227,227,119,6 
2,28 

80018 DEFBR$(18)=0,0,0,0,0,0,14,31 

80019 DEFGRS(19)=126, 255, 219, 255, 126, 102 
,128, 80 

60020 DEFGR$(20)=31,31,31,14,14,14,14,4 
60021 DEFGRS (212-255, 255, 126, 126, 124, 126 
,126,126 

60022 DEFGRS(22)=248, 248, 248,112, 112, 112 
,112,32 

80023 DEFGRS(23)=0,0,1,3,7,7,7,31 

60024 DEFBRS(24)=255, 255, 195, 129,0,0,0,0 
60025 DEFGRS(25)=0,0, 128, 192, 224, 224, 224 
,248 

60028 DEFGRS (26)=0,0,0,0,0,0, 192, 156 
60027 DEFGRS(27)=255, 219, 295, 255, 102, 60, 
24,24 

60028 DEFBRS (28) =0,0,0,0,0,0, 3,57 

60029 DEFGRS(29)=255, 63, 63, 82, 28, 28, 28,8 
60030 DEFBRS(30)=255, 255, 255, 255, 124, 128 
,80,24 

80031 DEFGR$(31)=255, 252, 252, 124,56, 56,5 
8,16 

80032 DEFGR$ (32) = 
60033 DEFGRS (33) = 
255,0 

60034 DEFGRS(34)=192, 192, 128,0, 0,192, 192 
,192 

60041 DEFGRS(41)=0,0,7,7,7,1,0,0 

60042 DEFGRS (42)=126, 255, 153, 255, 255, 231 
,255, 60 


3,3,1,0,0,3,3,3 
255,255, 255, 255, 126, 60, 


40043 DEFBRS{43)=0, 0, 224, 224,224, 128,0,0 
60044 DEFGRS (44)=3, 255,255, 123, 121, 120,4 
8,120 

80045 DEFGRS (45):255, 255, 255, 255, 255, 126 
,60,60 

60048 DEFGRS (46)=192, 255,255, 254, 158, 3 
12,30 

80047 DEFGRS(47)=252, 120,3,7,3,1 : 13 
40048 DEFGRS(48)=128, 231,195, 129, 129, 195 


195,195 
80049 DEFGRS(49)=83, 30, 192, 224, 192, 0, 128 
,192 





60050 DEFGRS(50)=60, 126, 219, 255, 255, 195, 
126,60 

60051 DEFERS(51)=0,0,6,6,8,6, 14,2 

60052 DEFGRS(52)=0,15,31,63,51,49, 112,96 
80053 DEFGRS (53) =24, 255, 255, 255, 255, 255, 
255, 126 

60054 DEFGRS(54)=60, 248, 240, 224, 192,128, 
0,0 

80055 DEFGR$(55)=96,0,0,1,1,1,1,7 

80058 DEFGRS (56)=128,255, 231, 195,195, 129 
,129,129 

60057 DEFBRS(57)=0, 0,0, 0, 128, 128, 128, 224 
80058 DEFGRS (58) =0,7,15,15,31,31,25,31 
80059 DEFGRS(59)=0, 254, 254, 190, 252, 252, 9 
2,252 

80060 DEFGRS(40)=83, 52, 83, 127,98, 127, 252 
,255 


Score: es2ea 
DER ane + UE 

er 

TS 





60061 DEFGR$(61)=248,152,248,240,176,240 
,78,224:RETURN 

60999 *+++CH0IX (Par manette/clavier)+++ 
61000 60SUB61500:POKELH6073, 1 

61001 LOCATEO, 20:C$=INKEY$:A=STICK(0) 
61010 IFA=SANDXC36THENX=X +3: B=INT (RNDH3) 
: XC=XC+3: 60SUB41500: 60SUB61600 

61011 IFC$=", “ANDX£3SBTHENX=X +3: B= INT (RND 
13): XC=XC+3:60SUB61500: 60SUBE1 600 

61019 IFC$=", "ANDXDQ THENX=X-3:B=INT (RND 
13): XC=XC-3: 60OSUB61500: GOSUB61 700 

61020 IFA=7ANDX>0 THENX=Y-3:XC=XC-3:B=IN 
TRND#3) : GOSUB61500: 60SUB61 700 

61921 COLORS:LOCATE1, 22:PRINT"N":COLOR7 
61022 COLOR3:LOCATE16,22: PRINT"R":COLOR7 
61023 COLOR5:LOCATE4, 22: PRINT"S":COLOR7 
61024 COLOR5:LOCATE7, 22:PRINT"E":COLOR7 
6i925 COLOR5:LOCATE10, 22: PRINT"0O":COLOR7 
61026 COLOR3:LOCATE19, 22: PRINT"L":COLDR7 
61027 COLOR3:LOCATE22, 22: PRINT"M":COLOR7 
61028 COLOR3:LOCATE25, 22: PRINT"B": COLOR? 








REPAIRE 


61029 COLOR3:LOCATE28, 22:PRINT"D":COLOR7 
61030 COLOR3:LOCATE31, 22: PRINT"A":COLOR7 
61031 COLOR3:LOCATE34, 22:PRINT"P":COLOR7 
61032 COLOR3:LOCATES7, 22: PRINT" 0": COLOR7 
61033 COLOR3:LOCATE13, 22: PRINT"E":COLOR7 
61040 IFXC=1AND(STRIG(0)=-10RC$=CHRS (32) 
)THEN LOCATE24, 20: COLORS: PRINT"NORD":PLA 
Y"PPPP":RETURN 

61041 IFXC=16AND (STRIG(0)=-10RCS=CHRS (32 
))THEN LOCATE24, 20: COLOR3:PRINT"REGARDE" 
: PLAY" PPPP":RETURN 

61043 IFXC=4AND(STRIG (0)=-10RC$=CHRS (32) 
VTHEN LOCATE24, 20: COLORS: PRINT "SUD": PLAY 
"PPPP":RETURN 

61044 IFXC=7AND (STRIG(0)=-10RC$=CHR# (32) 
THEN LOCATE24, 20: COLORS:PRINT"EST® : PLAY 
*"PPPP":RETURN 


61045 IFXC=10ANDISTRIG(0)=-10RC$=CHRS (32 
))THEN LOCATE24,20:COLORS:PRINT"QUEST*:P 
LAY"PPPP":RETURN 

61046 IFXC=19AND(STRIG(0)=-10RC$=CHRS (32 
))THEN LOCATE24, 20:COLOR3: PRINT'LIT":PLA 
Y"PPPP*:RETURN 

61047 IFXC=22AND(STRIG(0)=-10RC$=CHRS (52 
))THEN LOCATE24, 20:COLOR3:PRINT"MANGE":P 
LAY"PPPP®:RETURN 

61048 IFXC=29AND(STRIG(0)=-10RC$=CHRS (32 
))THEN LOCATE24, 20: COLOR3:PRINT"BOIT":PL 
AY"PPPP": RETURN 

61049 IFXC=2BAND (STRIG(0)=-10RC$=CHRS (32 
})THEN LOCATE24,20:COLOR3S:PRINT"DORT":PL 
AY"PPPP":RETURN 

61050 IFXC=31AND(STRIG(0)=-{0RC$=CHRS (32 
))THEN LOCATEZ24, 20: COLOR3:PRINT"ATTAQUE" 
:PLAY"PPPP":RETURN 

61051 IFXC=34AND (STRIG(0)=-10RC$=CHRS (32 
))THEN LOCATE24, 20: COLOR3: PRINT "PREND" :P 
LAY"PPPP":RETURN 
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61052 IFXC=37AND(STRIG(0)=-10RC$=CHR$ (32 
))THEN LOCATE24, 20:COLOR3: PRINT" OUVRE" :P 
LAY"PPPP®:RETURN 

61053 IFXC=13ANDISTRIG(0)=-10RC$=CHRS (32 
))THEN LOCATE24, 20: COLOR3: PRINT "ECHANGE" 
: PLAY" PPPP®: RETURN 

61480 60T061001 

61490 END 

61500 LOCATEX, Y:PRINT"##4" 

61510 LOCATEX, Y+2:PRINT"##4":RETURN 
61600 LOCATEX-3,Y:PRINT"  * 


61610 LOCATEX-3,Y+2:PRINT"  ":RETURN 
61700 LOCATEX+3,Y:PRINT" ” 
61710 LOCATEX+3,Y+2:PRINT"  “:RETURN 


61999 ?+4+++t MORT 4444444 HER EEE 
62000 CLS:SCREEN7, 7,7: SCREENI, 1, {: SCREEN 
0,0,0:SCREENO, 7,7: SCREEN7, 7,7 

62100 LINE(128,72)-(144,24),0:LINE(144,2 
4)-(178,24),0:LINE(176,24)-(192,72),0:LI 
NE(192,72)-(176,184) ,0:LINE(176,184)-{14 
4,184),0 

62101 LINE(144,184)-1129,72},0:BOXF (159, 
48)-(161,112),0:BOXF(144,71)-1176,73),0: 
B0X1144,184)-(176,199),0:LINE(192,72)-(1 
92,104),0 

62102 LINE(192,104)-(177,200),0:LINE(128 
,72)-(128,104),0:LINE(128,104)-(143, 260) 
,0:LOCATEO, 0: ATTREO, À 

62499 ’++t+ttttt MUSIQUES +++++++4 

62500 PLAY"O2T19L24FAL36FAL12S0L24MIL48M 


IL24LAL36LAL12S1bL24S0L36S0L12LAL24SIbLS | 


6S1b03L12D002L24LAL3SLAL{2T1BAOLAUSREDO# 
REMIL24FAL12MIREL24RE02L48RE " : COLOR: ATT 
RB1,0:LOCATEO, 0: PRINT"score:"; SCORE: COLO 
R7:END 

62590 FORI=iTO2: 60SUB62600:NEXTI: GOSUR62 
610 :RETURN 
62600 PLAY"AOT903L305004112D0L30M10SL125 
004L18FAL12MIL360350L 1204D0L18FAL12MIL30 
0350L1204MIL4BMILAZRE" 

62601 PLAY"T903L306004L 1 2D0L30M103L12500 
4L18FAL12MIL360350L 1204D0L18FAL12MIL300S 
SOL1204MIL48MIRE" 

62602 PLAY"AÏT903L105104D003S104DOL3003L 
à" 

62603 PLAY"T904L10D003L10S104D0035104D0L 
3003LA04L10D00351040003S104D0L20FAMIREDC 
03L60S1": RETURN 

62610 PLAY"T9L5002D0T905L10MIL20FALIONIL 
1002REMIFAD4MIREMITOLSODOT90SL10MILZOFAL 
10REO1MIFAD2MIREMITOLSODOTOL 10REUSMIFAMI 
REMIT20T501L98D0L2REMIFASOLASIOZ2DOREMIFA 
SOLASIO3DOREMIFASOLASIDO" 

62611 PLAY"O4DOREMIFASOLASIDOCSDOREMIFAS 
OLASISI#L1205SIbLASO#SOFA#FAMIRE#REDO#DO 
D4SILALASO#SOFA#F AHMIMIHREDO#DODZS ILARL 
ASD#SOFARFAMIRE#REDO#D002SILA#LASOASOFAR 
FAMIRE#REDO#O1T!O0L96D0":RETURN 


. 








27 . 


PEER Er OU 


Li. 





a es lp 4 


REPAIRE 


Compie chèques 





GC. logiciel facilite le suivi 
d’un compte de chèques 
bancaire ou postal. Si ce ï 
programme ne vous met pas à 
l'abri d’un découvert, il vous 
permettra tout au moins de 
connaître l'étendue des 
dégâts. 


E effet, vous allez pouvoir enregistrer vos opérations 
journalières sous forme de fiches, consulter une fiche ou 
l'intégralité du fichier, visualiser le bilan mensuel de votre 


compte traduit en histogramme 


Le programme ne comporte pas de REM et sa structure 

est très condensée afin d'assurer un encombrement 

mémoire réduit rendant ce programme fonctionnel sur 
:TO7 


Gérard Guiheneut 


Q LOCATEO, 0,0: SCREENO, 0, 0: CLS: LOCATEO, 10 
#9:COLOR6: PRINT" Introduire une disquette 
dans le lecteur"; :LOCATES, 12,0:PRINT"pu 

is appuyez sur "::COLOR7,4:PRINT"ENTREE" 
3 COLOR6, 0: PRINT" 5, v,p,":PLAY"0461" 

1 605UB197 

2 60SUB175:NBE=LOF (1) : IFNBE<)OTHEN27 

3 SCREENO,0,0:CLS:LOCATE?, 1,0:COLOR3: ATT 

RB1, 1:PRINT"COMPTE-CHEQUE ": ATTRBO, 0: BOX ( 

0,20)-(319,183),7 

4 LOCATE9,3,0:COLOR7,4:PRINT" IDENTITE D 

U TITULAIRE ":LOCATE2,6,0:COLOR7, 0:PRINT 

“NOM t";2H=11:V=6:NC=15: PLAY" O4L6S1" 

:60SUB166 

3 LOCATEZ,8,0:PRINT"Prénon :":H=11:V=8: 

NC=15:PLAY"SI":60SUB166 

6 LOCATE2,10,0:PRINT"Adresse :":H=11:V=1 

O:NC=25: PLAY" SI": 60SUB166 

7 LOCATEZ,12,0:PRINT"Ville 

2:NC=25:PLAY"SI":60SUB166 

8 LOCATE2,14,0:PRINT"Code Postal :":H=15 

:V=14:NC=5: PLAY" SI": 60SUB166 

? LOCATEZ,16,0:PRINT"Nos de la Banque :" 

:H=20:V=16:NC=18:PLAY" SI": 60SUB166 

10 LOCATE, 18,0:PRINT"No de Compte :":H= 

16:V=18:NC=10:PLAY"SI":G60SUB166 

11 LOCATE2,20,0:PRINT'"Avoir initial :":H 

=17:V=20:NC=9: PLAY"SI":60SUB166 

12 60SUB175:LOCATEZ, 24,0: COLORG: PRINT"TA 

PEZ "3:COLOR7, 1:PRINT"ENTREE"; : COLOR, 0: 

PRINT" APRES CHAQUE INFORMATION": : PLAY" D 

4L24RE" 

15 LI1=64:L51=91:L12=64:L92=91:CP1=32:CP 

2=45:NC=15:X=11:Y=6:CC=6:CF=0: 60SUB157:L 


s"sH=11:V=1 


28 


SETNS=REPS$ 

14 Y=8:60SUB157:LSETPN$=REPS 

15 L12=47:L52=58: NC=25: Y=10: 60SUB157: LSE 
TAD$=REP$ 

16 L12=64:L52=91:Y=12: 60SUB157: LSETUS=RE 
P$ 

17 L11=47:LS1=58:L12=47:LS2-58:CP1=0:CP2 
=0:X=15:Y=14:NC=5:605UB157:LSETCP$=REPS 
18 LI1=64:L51=91:L12=64:L52=91:CP1=32:CP 
2=45:1=20:Y=16:NC=18: 60SUB157: LSETES=REP 
$ 


19 L12=47:L52=58:NC=10: X=16: Y=18: G0SUB1S 
7:LSETNCS=REPS 

20 L11=47:L51=58:CP1=46:CP2=0:NC=9: X=17: 
Y=20:60SUB157:LSETAIS=REPS 

21 60SUB198: IFR$="V"THEN26 

22 EF$="11061511081511102511122515140520 
1818161810172009" 

23 FORN=0TO7:K$=MIDS(EFS, (6#N) +1, 2) : VS=h 
IDS(EFS, (EAN) +3, 2) :NC$=NIDS(EFS, (68N)+5, 
2) 

24 X=VAL(X$) : Y=VAL (VS) :NC=VAL (NCS) 

25 FORF=OTO(NC-1) :LOCATEX+F, Y,0:COLORO:P 
RINT" *:PLAYO4LILA":NEXTF:NEXTN: 60TO1 2 

26 PUT#1, 1:607036 

27 SCREENO, 0, 0:CLS:LOCATE?, 1,0:COLOR3: AT 
TRE1, 1:PRINT*COMPTE-CHEQUE : ATTREO, 0: BOX 
(0,20)-(319,183),7:LOCATE9, 3, 0:COLOR7, 4: 
PRINT" CONTROLE PRELIMINAIRE ": :60SUB175 
28 LOCATEZ, 24,0:CULOR6, 0:PRINT"TAPEZ "1: 
COLOR7, 4: PRINT"ENTREE"; :COLORS, 0:PRINT" 

APRES CHAQUE INFORMATION": : PLAY" OL 12RE" 
29 LOCATES, 10,0:COLOR7, O:PRINT"NOM :"::H 
=10:V=10:NC=15:60SUB186 
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mn 


30 LOCATES,13,0:COLOR7,0:PRINT"No de Con 
pte :";:H=19:V=13:NC=10: 60SUB166 

31 LI1=64:L61=91:L12=64:L62=91:CP1=32:CP 
2=45:X=10:V=10:NC=15:CC=6:CF=0:60SUB157: 
NOM$=REPS ; 
32 L12=47:L62=58:CP1=32:CP2=45: \=19:Y=13 
:NC=10: 60SUB157: NUM$=REPS: GET#1, 1 

33 CT$=N$:60SUB170: N$=CT$:CT$=NCS: GOSUB1 
70: NC$=CT$ 

34 IFN$=NOMSANDNC$=NUMSTHENSE 

35 LOCATE9, 17,0:COLOR3: ATTRBO, 1: PRINT "DO 
NNEES INCORRECTES :!":PLAV"O2L9GRE": COL 
RO:LOCATE10, 10,0:PRINT" st 
:LOCATE19,13,0: PRINT" "3 :LOCATE 
9,17,0:PRINT" ssAT 
TRBO, 0: 607031 

36 CLEAR:DIMAI (31) : SCREENO, 0, 0:CLS:LOCAT 
E7,1,0:ATTRB1, 1:COLOR1,0:PRINT"COMPTE-CH 
EQUE":ATTRBO,0:BOX(0,20)-(319,183),7:L0C 
ÀTE8,4,0:COLOR5:ATTRBI,0:PRINT" - MENU 
= “3tLOCATEZ, 7,0:COLOR2, 0: ATTRBO, 0: PRIN 
T'Choisissez entre :"::RESTORE 

37 DATAEdition / Modification d'une Fich 
e.. 

38 DATAConsultation d'une Fiche 


39 DATAConsultation Globale du Fichier , 
40 DATABilan Mensuel (graphiques) ....., 
41 DATAAnnulation d'une Fiche .....,,... 


42 DATAFin d'Utilisation du programse.… 





43 FORF=1T06:READT$:LOCATE1, 7+(24F),0:C0 

LOR6,O:PRINTTS;" “3: COLORO, 3:PRINTCHRS (4 

8+F) 3: PLAY"O4L6FA":NEXTF 

44 LOCATE?,24,0:COLOR7,4:PRINT" ENTREZ V 

OTRE CHOIX SIL VOUS PLAIT *; 

45 R$=INKEYS: IFVAL(R$) € 1ORVAL (R$) >6THEN4 

3 

48 ONVAL (R$) 60SUB48, 92, 102, 120, 145, 156 

47 601036 

48 SCREENO, 0,0: CLS:LOCATEO, 1,0: COLOR4, 2: 

ATTREO,1:PRINT"  EDITION/MODIFICATION 

D'UNE FICHE  ";:ATTRBO, 0: 60SUB181:G0SU 

B193 

49 FORF=1TO3:CREDIT$(F)="":DEBIT#(F)="": 

COMS(F)="":NEXTF 

50 FORF=1T03:LOCATEO, 24, 0: COLORS, 0: PRINT 

"OPERATION No";F;" : (Cirédit/(D)ébit ?" 

3:PLAY"04L12FA" 

51 R$=INKEYS: IFR$<)"C"ANDRSC)"D"THENSI 

52 IFR$="C"THENH=2: V=3+(24F) : X=2: V=V 

53 IFR$="D'THENH=12:V=3+(24F):X=12:V=V 

54 LOCATEO,24,0:COLOR6: PRINT" TAPEZ “;: 

COLOR7, 1:PRINT"ENTREE"; :COLOR6, O: PRINT" 

APRES CHAQUE INFORMATION"; :PLAY"L1204FA" 

59 NC=8:60SUB166:L11=47:L51=58:L12=47:LS 

2=58:CP1=46:CP2=0:CC=6: CF=0:60SUB157 

56 IFR$="C"THENCREDITS (F)=REP$ELSEDEBITS 

{F)=REP$ 

57 H=22:V=3+(24F) : X=22: Y=V:NC=15:L11<64: 

L61=91:CP1=32:CP2=46: 60SUB166: 60SUB157:C 

. OM$(F)=REPS 

38 IFF<3THENLOCATEO, 24, 0: COLOR3: PRINT "Au 

tre Opération : (O)ui / (Non ai 

PLAY"L1204F A" :G0TD60 

59 60TO62 

60 R$=INKEYS: IFR$C)"O"ANDRS<}"N"THEN6O 

61 IFR$="O"THENNEXTF 

62 LOCATEO,24,0:COLOR3,0:PRINT" Date e 

ffective (J,M,A) --} ";:COLORO, 3:PRINT'E 

NTREE"::COLORS,O: PRINT"  "; 

63 H=2:V=14:NC=6:LI1=47:L51=58:CP1=0:CP2 

20: X=H: Y=V: GOSUB1 66: 60SUB157: DATEAMS=REP 

$:60SUB188: IFFLAGI=1THEN62 

64 60SUB198 . 

5 IFR$="V"THEN67 

bb FORF=1T06:V=4+F:LOCATE2, V, 0: PRINT" 
"2LOCATE12,V,0:PRINT" ":LO 

CATE22,V, 0: PRINT" "2NEXTF 

:LOCATE2, 14,0:PRINT" *:607049 

67 60SUB179:NBE=LOF (1) 

68 IFNBE>OTHEN74 

69 60SUB175:GET#1, 1: ANCAVS=AIS 


70 CT$=ANCAVS: 60SUB173: ANCAVS=CT$:LOCATE 


16,20, 0:COLORS: PRINTANCAVS: GOSUB187 

71 NAV=VAL (ANCAVS) +0P: NAVS=STRS (NAV) 

T2 CT$=NAVS:605UB173: NAV$=CT$:LOCATE16, 2 
1,0:PRINTNAVS 

713 NE={:605UB179:G60SUB185: 60SUB196:RETUR 





REPAIRE 


x 

74 60SUB179:FORT=1TONBE 

75 NE=T:6ET#1,T 

76 IFVAL (DATES) =VAL (DT$) THEN79 

77 NEXTT 

78 607083 

79 60SUB187: ANCAVS=AAS: CT$=ANCAVS: GOSUB1 
73: ANCAVS=CTS: LOCATE6, 20, 0: COLORS: PRINT 

ANCAVS:REP=VAL (AAS) -VAL (NAS) +0P : NAV=VAL ( 
ANCAVS) +0P: NAVS=STRS (NAV) : CTS=NAVS : GOSUB 
173:NAVS=CT$: LOCATELS, 21, 0: PRINTNAVS 

80 60SUB185:FORT-NE+1TONBE:GET#1,T 

81 ANCAVS=AAS : NAVS=NAS : ANCAV=VAL (ANCAVS) 
4REP : ANCAVS=STRS (ANCAV) : NAV=VAL (NAVS) 4RE 
P:NAVS=STRS (NAV) : LSETAAS=ANCAVS: LSETNAS= 
NAVS 

82 PUT#1, T:NEXTT: 60SUB196:RETURN 

83 FORT=1TONBE:NE=T:GETH1,T 

84 IFVAL (DATES) (VAL (DT$) THENG7 

85 NEXTT 

86 GOSUB187: GET#1 , NBE : ANCAVS=NAS : NAV=VAL 
(ANCAVS) +0P:NAVS=STRS (NAV] : CTS=ANCAVS : 60 
SUB173: ANCAVS=CTS:LOCATE16, 20, 0: COLOR3: P 
RINTANCAVS : CT$=NAVS : 60SUB1 73: NAVS=CT$:LO 
CATE6, 21,0:PRINTNAVS:NE=NBE +1: 60SUB185: 
60SUB196: RETURN 

87 EC=NBE-NE: FORT=0TOEC: GETH1,NBE-T:PUT# 
1,NBE-T+1:NEXTT 

88 GET#1,NE:G0SUB187: ANCAVS=AAS:CTS$=ANCA 
V$:60SUB173: ANCAVS=CTS:LOCATE6, 20, 0: COL 
OR3:PRINTANCAVS : REP =0P:NAV=VAL (ANCAVS ) +0 
P:NAVS=STRS (NAV) : CTS=NAVS: GOSUB1 73: NAVS= 
CTS:LOCATELS, 21, 0:PRINTNAVS: 60SUB185 

89 FORT=NE+1TONBE+1:GETH1, T 

90 ANCAVS=AAS : NAVS=NAS: ANCAV=VAL (ANCAVS) 
4REP: ANCAUS=STRS (ANCAV) : NAV=VAL (NAVS) 4RE 
P:NAVS=STRS (NAV) : LSETAAS=ANCAVS: LSETNAS= 
NAVS 

91 PUT#1,T:NEXTT:60SUB196: RETURN 

92 SCREENO, 0,0:CLS:LOCATEO, 1, 0:COLOR4, 2: 
ATTRBO, L:PRINT" CONSULTATION D“UN 
E FICHE * ; :ATTRBO, 0:FLAG2=0 

93 GOSUB204: 60SUB181 : 60SUB193 

94 LOCATEO, 24,0:COLOR3:PRINT" INDIQUEZ LA 
DATE : “::LI1=47:LS 
1=58:L12=47:L52=58: X=19: Y=24: NC=6: CC=5:C 
F=0:H=X:V=Y:608UB157: DATEAMS=REPS: 60SUB1 
88: IFFLAG1=1THEN94 

95 60SUB179:FORT=1TONBE :GET#1, T 

96 IFVAL (DATES) =VAL (DT$) THEN99 

97 NEXTT 

98 LOCATEO, 24,0:COLOR1:PRINT" AUCUNE FI 
CHE ENREGISTREE A CETTE DATE"; :PLAY"L980 
3REPP" : RETURN 

99 FORF=103: :V=3+(24F) :LOCATE2, V, 0:COLO 
R6:PRINTCS (F) :LOCATE12, V, 0:PRINTDS (F) :LO 
CATE22, V, 0:PRINTOMS (F) : :NEXTF 


100 LOCATEZ, 14,0:PRINTDATEAMS : CT$=AAS: 60 





SUB173: AA$=CT$:LOCATE16, 20,0: COLOR3: PRIN 
TAAS:CT$=NA$: GOSUB173: NA$=CT$:LOCATEL6, 2 
1,0:PRINTNA$: IFFLAG2=5THEN46 

101 6OSUB196:RETURN 

102 SCREENO, 0, 0: CLS: LOCATEO, !, 0: COLOR, 2 
:ATTRBO,1:PRINT" CONSULTATION GLOBALE 
DU FICHIER “x2ATTRBO, 0 

103 60SUB204:60SUB193:CONSOLE23, 24: CLS:C 
ONSOLEO, 24: G0SUB175:GET#1, 1:LOCATE1, 3,0: 
COLOR7:PRINT'NOM : "3; :LOCATE7, 3,0: COLORS: 
PRINTNS: 

104 LOCATE23,3,0:COLOR7:PRINT"No :"; :LOC 
ATE28,3,0:COLORS:PRINTNCS; 

105 LOCATEO,5, 0:COLORO, 3:PRINT"DATE 
COMMENTAIRE OP. MONTANT  OP";:NL=7 
106 GOSUB179:FORN=1TONBE: GET#1,N 

107 FORF=1TO3 

108 IFVAL{C$(F))=OTHENCD$="D"ELSECD$="C" 
109 IFLEFT$(CM$(F),1)=CHR$(32) THEN117 
110 COLOR7, 4: LOCATEO, NL, 0: PRINTRIGHTS (DT 
$,2):MID$(DT$,3,2);LEFTS(DT$,2):LOCATES, 

NL, 0: COLOR7, 0: PRINTCMS (F) : COLOR 
111 IFVAL(D$(F))=0THENLOCATE27, NL, O:PRIN 
TC$(F) 

112 IFVAL(C$(F))=OTHENLOCATEZ7,NL,0:PRIN 
TD$(F) 

113 LOCATE38,NL, 0: COLOR2: PRINTCDS3 : PLAY" 
OSL6RE" 

114 NL=NL+1: IFNL<23THEN116 

115 60SUB200:CONSOLE7, 22: COLORO, 0:CL5:C0 
NSOLEO, 24: NL=7 

116 NEXTF 

117 NEXTN 

118 IFNL<)7THENGOSUB200 

119 RETURN 

120 SCREENO,0,0:CLS:LOCATEO, !,0:COLOR4, 2 
*ATTRBO, 1: PRINT" BILAN MENSUEL (6r 
aphiques) “3: ATTRBO, 0: BOX (0,20) -(5 
19,183),7:51=0:58=0:N1=0:N5=0: 60SUB204:6 
OSUB193 

121 LOCATEO, 24,0:COLDR3,0:PRINT"POUR QUE 
LLE PERIODE (Mois, Année): "4 

122 X=34:V=24:L11=47:L51=58:L12=47:L52=5 : 
8:CP1=0:CP2=0:NC=4:CC=5:CF=0: 60SUB157:PE 

R$=REP$:IF LEN(REP$){}4 THEN LOCATEO, 24, 

0:COLOR6,0: PRINT" EXPRIMER LA PERIODE EN 
QUATRE CHIFFRES"; : PLAY"LO6O3REPL12":G60T 
0121 

123 IF VAL(LEFT$(PERS,2))>12 OR VAL(LEFT 
$(PERS,2))€=0 THEN LOCATEO, 24,0:COLOR1,0 
:PRINT" PERIODE EXPRIMEE INCORRECTEMEN 
T !! "ss: PLAY"LO6OSREP":60T0121 

124 NJ$="312831303130313130313031":MC=VA 
LILEFTS (PERS, 2) ):NJ=VAL(MIDS (NJS, (2#MC) - 
1,2)) 

125 60SUB179:FOR N=1 TO NBE:GET#1,N 
126 IF(MID$(DT$,3,2)+LEFTS(DT$,2))=PER 

HEN129 
































| 
| 
| 
| 
| 
| 


REPAIRE 


127 NEXTN 

128 LOCATEO,24,0:COLOR1:PRINT"AUCUN ENRE 
GISTREMENT DANS CETTE PERIODE"; :PLAY"L96 
OSFAP":RETURN 

129 GET#1,N:PREAVS=AAS:FORI=1TO31:AJ(1)= 
O:NEXTI 

130 LOCATE1,4,0:COLOR7:PRINT"MOIS": :LOCA 
TE1,5,0:COLOR7, 1:PRINTPERS:LOCATE7, 17,0: 
COLORO, 3:N$="123456789012345678901234567 
8901":M$=LEFT$ (M$, NJ) :PRINTMS; :LOCATEN, 1 
7,0:COLOR7,0:PRINT" Jours"; 

131 FORT=N TO NBE:G6ET#1,1T:1I=VAL(RIGHTS(D 
T$,2)):1F VAL(LEFTS (PERS, 2) )=VAL (MID$ (DT 
$,3,2))THEN AJ(I)=VAL(NA$) ELSE 133 

132 NEXTT 

133 IFAJ(1)=OTHENAJ (1)=VAL (PREAVS) 

134 FORI=2T0 NJ:IFAJ(I)=OTHENAJ (1)=AJ (1- 
1) 

135 NEXTI 

136 FORI=1TONJ 

137 IF AJ(I)> 56 THEN S5=AJ(1) 

138 IF AJ(I)< SI THEN SI=AJ{1) 

139 NEXTI 

140 DAFSSSSISUN=DIF/104:L0=135+INT (SI/U 
N):E8=faP(DIF/13) 

141 FORI=ITONJ:HC=INT (AJ (1) /UN) 

142 CR=4: IFAJ (1) <OTHENCR=6 

143 BOXF((B#(1+6)+1),L0)-((8#(1+6)+6),L0 
HO) ,CR:PLAY"L604D0":NEXTI:COLOR7: LINE (5 
6,L0)-(55+(NJ48) ,LO) :LOCATE6, INT (LO/8),0 
:PRINT"0";:LOCATE7, 19,0:COLOR6,0:PRINT"A 
VOIR INIT, :"3;:COLOR3,0:PRINTAJ(1) 

144 LOCATE7, 20,0: COLOR6:PRINT"AVOIR FINA 
L :";:COLOR3:PRINTAJ (NJ) : BOXF (57,168) -{6 
2,175),4:LOCATE9,21,0:COLOR7:PRINT "repré 
sente”; :LOCATE20,21,0:COLOR3: PRINTEG; : CO 
LOR7:PRINT"F"; : 60SUB196:RETURN 

145 COLORO, 0: CLS: SCREENO, 0, 0:LOCATEO, 1,0 
:COLOR4, 2: ATTRBO, 1: PRINT" ANNULAT 
ION D'UNE FICHE “3 :ATTRBO, 0:FLA 
62=5:60T093 

146 FLAG2=0:LOCATEO,24,0:PRINT"Annulatio 
n effective (Qui / (Njon ?  ";:PLAY"LI 
204FA" 

147 R$=INKEYS$: IFR$<>"D"ANDRS<>"N"THEN147 
148 IFR$="N"THEN RETURN 

149 FORN=1TONBE: GET#1,N: IFVAL (DATES) =VAL 
(DT$) THEN151 

130 NEXTN:RETURN 

151 REP=VAL (AA$)-VAL{NA$) 

152 605UB179:FO0R T=N T0 NBE-1:GET#1,7+1: 
ANCAV=VAL (AA$) +REP : NAV=VAL (NAS) +REP : ANCA 
V$=STR$ (ANCAV) : CT$=ANCAVS : GOSUB1 73: ANCAV 
$=CT$:NAVS=STRS (NAV) : CT$=NAVS: 6OSUB173:N 
AVS=CTS:LSETAAS=ANCAVS: LSETNAS=NAVS: PUT# 
1,T:NEXTT 

153 IFNBE=1THENCLOSE#1 : KILL'DONNEES. DAT" 
RETURN 


Fe. 30 


154 FORN=1TO (NBE-1) : 60SUB179:6ET#1,N:605 
UB177::PUT#2,N:CLOSE#2:NEXTN 

155 CLOSE:KILL"DONNEES. DAT *:NAME"TRANSFE 
R.DAT" AS "DONNEES. DAT": 60SUB196:RETURN 
1536 SCREENO,0,0:CLS:G60SUB193: CLS: SCREENE 
54, 4:END 

157 REP$="" 

158 L$=INKEYS 

199 IFL$=CHR$ (8) ANDREP$<>""THENREPS=LEFT 
$(REP$,LEN(REPS$)-1) 

160 IFL$=CHR$(13) THEN164 

161 IF L$="" OR LEN(REP$)=NC THEN 158 
162 IF (ASC(L$)>LI1 AND ASC(L$)<LS1) OR 
(ASC(L$)>LI2 AND ASC(L#)<LS2) OR (L$=CHR 
$(CP1)) OR (L$=CHR$(CP2)) THEN REP$=REPS 
4L$ 

163 LOCATEX, Y,0:COLORCC,CF:PRINTREP$+" " 
;:6070158 

164 IFREP$=""THENPLAY"L2402RE":G60T0158 
165 PLAY*L1805MI":RETURN 

166 COLOR7:LINE (84H, (8#(V+1)+2))-({8#(H+ 
NC)),(8#(V+1))+2) 

167 FORN=8#H TO (8#(H+NC)) STEP 8 

168 LINE(N,8#(V+1))-(N, (8 (V+1))+2) 

169 NEXTN:RETURN 

170 F=LEN(CT$):FORN=1TOF:C$=RIGHTS (CT$, 1 
) 

171 IFC$C)CHR$ (32) THENRETURNELSECT$=LEFT 
$(CT$,F-N) 

172 NEXTN: RETURN 

173 LC=LEN(CT$):LT$=LEFTS (CT$,1):IF LT$= 
CHR$(32) THEN CT$=RIGHTS(CT$,LC-1) 

174 RETURN 

175 CLOSE#1:0PEN"D",#1,"IDENTITE", 122 
176 FIELD#1,15 AS N$,15 AS PN$,25 AS AD$ 
,25 AS V$,5 AS CP$,18 AS B$,10 AS NC$,9 
AS AI$:RETURN 

177 CLOSE#1:0PEN"D",#2, TRANSFER", 123 
178 FIELD#2,8 AS C$(1),8 AS D$(1),15 AS 
CM$(1),8 AS C$(2),8 AS D$(2),15 AS CM$(2 
),8 AS C$(3),8 AS D$(3),15 AS CM$(3),6 À 
S DT$,12 AS AA$,12 AS NA$:RETURN 

179 CLOSE#1:0PEN"D",#1, "DONNEES", 123 

180 FIELD#1,8 AS C$(1),8 AS D$(1),15 AS 
CM$(1),8 AS C$(2),8 AS D$(2),15 AS CM$(2 
),8 AS C$(3),8 AS D$(3),15 AS CM$(3),6 À 
5 DT$,12 AS AA$,12 AS NA$:RETURN 

181 COLOR7,0:B0X(0,19)-(319, 183) :LOCATE1 
535 0:COLOR7,4:PRINT" CREDIT  DEBIT 
NATURE OPERATION “;:LINE(88,35)-(8B,83) 
:7:LINE(168,35)-(168,83),7 

182 LOCATE1,12,0:COLO0R7,4:PRINT" DATE 


“::COLORO,O:PRINT"  "::COLOR7, 4:PRINT" 
IDENTITE DU TITULAIRE  "::B0X(7,107)- 
(72,125),7 


183 LOCATE1,20,0:COLOR7,0:PRINT"ANCIEN À 
VOIR :";:LOCATEI,21,0:PRINT"NOUVEL AVOIR 


TEO N°13 - AVRIL 4987 


184 60SUB175:6ET#1, 1:COLOR6, 0:LOCATE12, 1 
4,0:PRINTBS: :LOCATE12, 15, 0:PRINTNS: :LOCA 
TE12,16,0:PRINTPN$; :LOCATE12, 17,0: PRINTA 
D$; :LOCATE12, 18, 0:PRINTVS: : RETURN 

185 LSETCS(1)=CREDITS(1):LSETDS (1)=DEBIT 
$(1):LSETOMS (1)=COMS (1) :LSETCS(2)=CREDIT 
$(2):LSETDS (2) =DEBITS (2) :LSETCMS (2)=COMS 
(2):LSETCS (3) =CREDITS (3) :LSETD$(3)=DEBIT 
$(3):LSETCMS (3) =COMS (3) 

186 LSET DTS=DATES:LSET AAS=ANCAVS:LSET 

NAS=NAVS: PUT#1, NE: RETURN 

187 FORF=1T03: OP (F)=VAL (CREDITS (F))-VAL 
DEBITS (F) ) :NEXTF : OP=OP (1) +0P (2)#0P(3):RE 
TURN 

188 NJ$="00312831303130313130313031":FLA 
G1=0:FDATES=MIDS (DATEAMS, 1, 2) :MDATES=MID 
S(DATEANS, 3, 2) :DDATES=MIDS (DATEAMS, 5, 2): 
DATES=DDATES+MDATES+FDATES 

189 _IFLENUREPS) € 6THENLOCATEO, 24, 0: COLOR 
3:PRINT"  EXPRIMER LA DATE EN 6 CHIFFRES 
5.V.P.";:PLAY"LO6O3REP":LOCATEH, V, 0:PRI 
NT" "; :DATES="" :FLAGI=1: RETURN 

190 NJ=VAL (MIDS (NJ$, (2XVAL (MDATES) )+1, 2) 
191 IF VAL(FDATES)<1 OR VAL (FDATES) NI D 
R VALUMDATES)<1 OR VAL(NDATES))12 THENLO 


CATEO, 24,0: COLOR1,0:PRINT" DATE 
INCORRECTE !! "3: PLAY"L9602RE 

P":LOCATEH, V, 0: PRINT" "s:DATES="":F 

LAGI=1 

192 RETURN 


193 LOCATE6,24,0:COLOR3,0:PRINT"Choix co 
nfiraé (Ojui/({N)on ?"; 

194 R$=INKEYS$: IFR$<)"O"ANDR$S<D"N"THEN194 
195 IFR$="O"THENRETURNELSE36 

196 LOCATEO,24,0:COLOR6:PRINT" TAPEZ 
SUR ";:COLOR7, 1:PRINT"ENTREE “; : COLOR6, 0: 
PRINT" POUR CONTINUER  “3:PLAY"L1204MI" 
197 R$=INKEYS: IFR$C)CHRS (13) THEN197 ELSE 
RETURN 

198 LOCATEO,24,0:PRINT" VALIDATION :"; 
:COLOR7, 1:PRINT"V";:COLOR6, 0: PRINT" 
NODIFICATION :"3:COLOR7, 1:PRINT"M"; :COLO 
R6,0:PRINT"  ";:PLAY"L1204RE" 

199 R$=INKEYS: IFR$C)"V"ANDRS<)"M"THEN1 99 
ELSERETURN 

200 LOCATEO, 24,0: COLOR6: PRINT" ME 
NU :"3:COLORS, 4: PRINT"M" 3 : COLOR6, 0: PRINT 
% SUITE :"3;:COLOR3, 4: PRINT"S";:C0 
LOR6, 0: PRINT" "3 :PLAY"L1204FA" 

201 R$=INKEYS: IFR$<)"M"ANDRS<)"S"THEN201 
202 IFR$="M"THENGOTO36 

203 RETURN 

204 60SUB179:NBE=LOF (1) 

205 IFNBE=OTHENLOCATE6, 15,0: COLOR1,0:ATT 
RB1,0:PRINT"FICHIER VIDE !!";:ATTRBO, 0:P 
LAY"L9603D0P":607036 

206 RETURN 


, — | oermÀ 





I ne s’agit pas de vous mettre 


en boîte, mais de tester votre 


vision en perspective cavalière 


d'une figure de l’espace. 


:RETUFN 
3 6,6, Trait oointille vertical 

10 FOR Y=VE TO YA STEC Ze PSETIX.Y):NEXT 
ÿ: RETUPN 

14 ?S,P, Trait oountiile 2biigue 

LE FOR X=XD TO XA STEF Z:y=(!VA-VDlS} #1 
AtYD-XDNVA)/EXA-XD) :8GET IX. Y):NEXT X:RET 


URN 


17 ’Ceogranme ‘TESTS de PERSPECTIVE". Coo 
vright Marc CHARNAY ,E,N,N.A, de Lvon-Vi 


iJeurbanne, !986, 
16 CONSOLEC, 24: CLS: SCREENCO, O, 0: CLEAR.. 2 


TESTS DE FERSPECTIVE 


REPAIRE 


Perspective 


Mise en boîte 


n.. de l'écran, vous voyez apparaître suCCes- 


19 DEFGR$(0)=24,74,24,24,995,126,£0,24:D 
EFGR#!1)224,60,128,255,24,24,74,24 

20 BOXF(16,40)-(23,187).3:BOXF(74,40)-{7 
1,47).3:B0XF(77,401-(79,102).3:B0XF (24,8 
6)-(721.105),3 

22 FOR !=0 T0 7 

24 LINE(17+1.39-1)-(90+1.39-1)j,4:LINE-(8 
0+1,102-1) ,4:LINE(24+1,48)-(24+1,95-1},4 
:LINE-(71,95-1).4:LINE(Z4+1,104)-(24+1,1 
ër-11,4 

26 NEXT 

28 S=0:FO0R 1=1 TO 10:READ T$(I):NEXT 

30 DATA C,L.B,T.d,C,M,P.F,I 

35 LOCATES, 20,0:COLOR!:ATTREA. L:PRINT"ER 
SPECTIVES,. , "2 ATTRBO, (:COLORZ:LOCATEZE, 4 





sivement dix figures numérotées de 1 à 10. À droite, vous 
ferez défiler, avec les flèches haut et bas, vingt figures 
numérotées de À à T. Vous devez trouver parmi ces 
dernières celles qui s'emboîtent dans la figure de gauche 
de façon à former un cube. 


Marc Charnay 


.):PRINT'ENNA Lyon 

40 GOSUB 1600:CLS: SCREEN!,6, 0 

45 GOSUB 1500:60SUB 1600:CL5 

50 LOCATE10,1.0:COLORZ:ATTREO, j: PRINT'TE 
ST5 DE PERSPECTIVE": ATTREBO, 0: COLOR! 

Se FOR I=1 T0 10 

62 ON ! GOSUR 100,150, 200, 250. 300, 350. 40 
0,450,500.550 

53 LOCATE12,15,0:COLOR2:PRINTI: :COLORI 
ES EOSUE 1200 

70 CONSOLES, 18: CLS: CONSOLEO, 24 | 
72 LOCATE 241-1,22,0:COL0RI:PRINTI: 

73 LOCATE 2#1,23,0:COLOR3:PRINTFS: : COLOR 
l 

74 GOSUR 1400 


r 








POUR LE 'DEFILEMENT DES 


POUR LA DESIGNATION TAPER 


TEO N°13 - AVRIL 1987 





FIGURES 


+ tt 


UNE TOUCHE 
31 









30 NEXT ! 
32 COMSCLES. 20: CLS: 
TRI, 1:PRINT'OCORE : 
/ 20": ATTRBE, D 
g4 COLORZ:L 
ORRECTION" 
= 05 FOR I=1 TO 19 
à 6 LOCATE 241-1.:7.C:COLORI:FRINTI: 
87 LOCATE 241.19.0:COLOR:FRINTTE(I): 
| 98 NEXT:GOSU 1190 
MN 90 FOE !=1 !C 10 
Mu S1 CONSOLE 2. 24:CLS:C0LOPI 
SZ ON ! EOSUB 100.150.220. 250, 300, 250,40 
9.450.500, 550 | 
À 93 LOCATE12.15,0:COLOR2:PRINTI 
… 94 COLORS:ON ! 6OSUE 2700.2850. 2300. 2950 
.2490,2100.2400. 2750. 2250.2400 
S LOCATEZS, 15, 0:COLORZ:PRINTFS:S0SÛE 1ë 


*esCOLOR1:FRINT2NS: 

















È 

98 NEXT 

90 CONSOLE9.24:END 

100 *Fiaure 1 

110 BOX(24,104)-172,128):B0X:30,94)-(87, 
70):80X1102,84)" (78,60) sLINE (SE. 7077 (7E, 





TESTS DE PERSPECTIVE 


3 


in 
1 LL 


ONLINE USE, 24) (7e, TE 

AU 115 LINE:39,04)-(15,94):LINE-30,84): LIN 
D E-:30,36):LINE-(45,26):LINE-(66,26) 

-(54,36):LINE-(30,36) 

120 LINE!24,118)-(15,11B):LINE-115,04;:L 

INE{20,841-{30,84):LINE!24,104)-139,94) 

125 LINE(39,70)-(89,50):LINE-(117,50):LI 

NE-(117,9B8):LINE-(72,128):LINE(72,104)-( 

192,84) 

D 130 LINE(S4,38)-(54,5 

S0):LINE!102,00)- en 

135 RETURN 

149 ’Fioure 2 

{50 80X(24.104)-148, 128) :LINE(48,128)-(7 





ILINE(69,25)-(89, 







COLOR7:LOCATEZ. 7.9: AT & 


LOCATE1O.15,0:PRINT"VQICI LA © À 


…. 200 LINE(?3,60)-(93,08) 
F NE- {û, 


” POUR LE DEFILEMENT. DES, FIGURES 


:LINE à 










Le 
… 270 LINE-(78.80):LINE (87. 
NE-(117,26):LINE-(69,26):LINE-(54,36):L Li 
INE(87,94)-(102,84 
.  E-(69,50):LINE-(7B,50):LINE (54,3É)-(59,2 





B.108):LINE-(78.84):LINE-(30,84):LINE-(C3 Un 


à O.38)LINE-(54,38):LINE-154, 60) :LINE-(78 ki 
.0Y:LINE- (78,36): LINE-(107,36):LINE-(10 Es 
x 390 BOX(15.70)-177,118):B0(148,104-172, 


2.198) :LINE-(78. 198) 
180 LINE(24,104)-(39.94):LINE-(15,S4):LI à 
NE-(30,94):LINE(24.118)-115,118): LINE-(1 Le 

5.94; 
{70 LINE(48,104)-(78,84):L 





Es. 310 LINE(72.128)-(117 
INE(102,198)-{ & 


117.98):LINE-(117,26): ei .26):LINE- à 


(78.28):LINE(102,38)-(117,2 
180 LINE(78, 
E-145,26):LINE-(30,I8):LINE(S4,38)-(69,7 
G:LINE(54,60)-(89,50) 

190 GETURN 

199 ’Fiqure 3 


128):LINE-(0.56):LINE- 
(39,46) :LINE-(39,94):LINE-(24, 194) :LINE 
-(46,104) 

210 LINE-(78,94):LINE-(78.60):LINE-(102, 
60):LINE-(117,S50):LINE-1117,26):LINE-(45 
.28):LINE-(30, 36) :LINE-430, 46) 


:LINE-(48,128):LI Le 
(US AE) ILINE 


es DT 
> AE 


…  LINE-(54,36):LINE(102,36)-1117,26):LINE( 
sGi- aus 26):LIN = 





349 ‘Figure à 


ra 
pen 


AS 


we 


… 360 LINE(30.84)-(30.36):LINE-(54, 36): LIN | 


pe ss. 


220 LINE(39,36)-(102,36):LINE-(117,26):L à 


… INE(102,38)-(102,60):LINE(78,84)-(39,84) LA 
| :LINE(24,104)-(24,56):LINE-(39.46):LINEl 





MT 
POUR LA DESIGNATION TAPER UNE TOUCHE 7 


9, 58)- (24,56) :LINE (48, 104)- 148, 128) 


380 RETURN 
…. 399 Figure 7 
. 400 BOX(0.104)-148,128):BOX (6. 94)-(87,1 | 


QE à 


CON 4 À 


| 84)-130.84}: 

104) 

… 420 LINE(87.118)-(117,98):LINE-(117,26): 
D LINE-(69.26): 
D 117,24) 
430 RETURN 
449 ‘Fiqure 8 
450 BOX(24.1041-(72,1Z8):LINE(24,118)-(1 ! 

* 5,118): LINE-(15.70):LINE- (45, 50):LINE- (S | 


- INE-(E3,94):LINE-(76,84):LINE-(102,84! 
. 460 LINE(24.104)-(39,94):LINE(72.104)-(1 ! 
mn (2,84):LINE-(102,36):LINE-(117,26):LINE- 
M1 (117.98):LINE-172,128) 


AE 


230 RETURN a 


249 ’Cioure 4 


8):B0X(63.94)-(87.118):LINE(4€,104)-(78, 


LINE-(102,36):LINE-(102,84):LINE-178, 
1181-1117.98)3L 


À INE(117,28)-(102, 38):L 
} 


480 RETURN 
- B4):LINE(48,128)-(83.118):LINE(0,104)-1! À 
D 5,94) ; 
| 260 LINE(15.70)-(45,S0):LINE-(54,S0):LIN Le 
qu .20)-(78.60):LINE-(54,60):LINE-(54,3 


| 500 BOX (24, 104)-(48, 128) :LINE (24, 1041-15 | 











 NE-154,94):LINE(S4,36)-1102,38):LINE(1S, 
. 250 BOX(15.70)-163.94):B0X10.194:-(48,12 L É 












































280 RETURN 
299 ‘Fiqure # 


128):LINE (15, 701-145,50):LINE- (54,50; :L] 
NE:54,60)-(39,70):LINE(30,118)-(48,112) 
, F8) :LINE-(117,2b}: 
LINE-(69.26):LINE-(94,26):LINE-(54,100) 
320 LINE(72.104)-1102,84):LINE-1102, Jo}: # 


46,104)-{78,84):LINE-(102,84) 
320 RETURN 


350 BOX(24,104)-(72,128):LINE(24.104)-(5 
9,94):LINE-(15,94):LINE- (15,118) :LINE-(2 ë 
4,118):LINE(72,104)-(102,84):LINE-(30,84 
)LINE-(15.64) 


E-(54,60):LINE-(102, 80):LINE-(107,84):L1 

NE(72,128)-(117.9B):LINE-(117,50) LINE -( 
SC): LINE- (66, 26) 

370 LINE-{45.28):LINE-(30. 36) :LINE(S4,E 

}-(69,26):LINE(34,601-(b6,S0):LINE (102.6 Ps 

0)-(117,50) 


18):LINE(48,104)-(63,94):LINE(48.128)-{6 
3.118) :LINE(54,50)-{45,30):LINE-130, 60): ! 
LINE-(54,60):LINE- (54,36) :LINE- (102,36) 
410 LINE-(102,84):LINE-(87.04):LINE(102, 
LINE-(30,60):LINE(30,84)-1C, 


LINE-(54,36):LINE(102,36)-t | 


4,S0):LINE(54,60)-(29,70):LINE- (29,94): | 


470 LINE(117,26)-(69,26):LINE- (54, 36): LI 
70)-(39,70) 
499 ’Fiqure 9 


4,84):LINE-{78,84):LINE-(78,108):LINE (48 
.104)-(78,84) 

910 LINE(4B,128)-(78,108):LINE-(102, 108) 
2LINE-(117,98):LINE-(117,26):LINE-(95,26 
}:LINE-(78,36):LINE-(78,60):LINE-(54,80) À 
ILINE-(54,36):LINE-(30,36):LINE-(30, 100) 
520 LINE(30,38)-145,26):LINE- (69,28) :LIN 












NT'ies fleches 


&):LINE(S4,60)-(69,50):LINE(102,38)-1117 
26) :LINE(76,361-t102.36):LINE-{102. 108) 
530 RETURN 
349 ’Figure 10 
5E0 BOX(30.16)-(54,4C):B0X178.80)-1102,4 
4):BOX(24,104)-(72,128):LINE(24,1041-138 
24) :LINE-(63,94):LINE-(78,84):LINE (T4, 1 
18)-115,118):LINE-(15,70):LINE-(E3.701eL 
INE-(78,460) 
560 LINE{63,79)-167,94):LINE(72,104)-{19 
2 BA): LINE(1E, 70)-(30,80):LINE(S0. 361-(4 
S42B}:LINE-(69,26):LINE-169,50):LINE- (11 
7,50) 
570 LINE-(117,98):LINE-(72, 128) :LINE (102 
«b0)-(117,S0):LINE(S4,60)-(69,S0): LINE (S 
4,3b)-(89,26) 
580 RETURN 

1200 ?S.P, Defilement 

{201 L=1:COLOR3 

1202 GOSUB 2000 

1205 LOCATE 28,15,9:COLOR2:PRINTF$: : COLO 
RI 

1219 GOSUB 1309 

1215 RETURN 

1300 ’S,P, Touches 

1310 LOCATEO. 18,0: COLORS:P 
EFILEMENT DES FIGURES "+6R$(0)+" 
{1 

1215 LOCATEO.20,0:PRINT"FQOUR LA DESIENAT 
_ TAPER UNE TOUCHE": 

1320 LOCATES7,20,0:COLOR1: PRINT"? "5: R$=T 

NHEYS 

1325 IF R$="" THEN 1120 

1330 IF ASC(R$)=10 THEN IF Lé20 THEN Let 
+1:607T0 1245 ELGE L=1:6070 1345 

1235 IF ASCIR#I=11 THEN IF Lo THEN L=L- 
1:6070 1345 ELSE L=20:6070 1345 

1340 RETURN 

1345 BOXF(192,24)-(319,130),-1 

1350 COLOR: ON L GOSUE 2000,2050,.2100,21 
50,2200,2250,2300,2350,2400.2450,2500,.25 
50,2800,2650,2700,2750,2B00,2820,2900,29 
50 


1352 LOCATES8, 15,0: COLOR2: PRINTFS$: : COLOR 


RINT'PQUR LE D 
*+6R$ 


en 


1355 60TO 1329 
1400 °S,P, Etablissement du score 
1410 IF F$=T$(1) THEN S=6+1 
1420 FETURN 
ISO SP, 
1505 COLOR 
DNS": COLOR: 
1510 LOCATEO.2,60:FRINT'"A gauche de l’ecr 
an.tu vas voir apparai-":LOCATEC,4,0:FRT 
NT'tre successivement 10 figures, numerot 
ees":LOCATEO, 6.0: PRINT" de | à i0,8 grait 
.tu feras defiler avec*:LOCATEO,8.0:PRI 
:GR$(Q):" et ":GRS(I DE" 


Exolications 


:LOCATEL4,0,0:PRINT"EXPLICATI 


20 figures numerotee 

1E1S LOCATEO, 10,0:PRINT'de & à T.lu do 
trouver carm ces der-":LOCATES, 12,0: 
INT'nieres celle qui s'emboite dans la 
iqu-":LOCATEO, 14,9:PRINT're de gauche de 
taïor a former un CUBE, ":LOCATEG, 1é,G:F 

RINT" Quand tu as trouve tu tanes la lett 

re“ 

1520 LOCATEO.19,0:FRINT'la designant. Tu 
connaitras ton score": LOCATEO, 20,0: PRINT 
“ar fin de test," 

1525 RETURN 
1500 5.8, 


is 
FE 
ê 


Tourner la page 
24,0:COLO0RZ:FRINT"Pour cont 
inuer.appuver sur une touche"::C$=INKEYS 
1620 IF C#$="" THEN 1610 ELSE RETURN 

1900 ‘Figure À 

2000 F$="A":LINE(279,104)-(239, 119) :LINE 
-(224,128):LINE-(200,128):L1NE- (200,68): 
LINE-(272,56):LINE-1272, 128) LINE-(248,1 
28):LINE-(248,104):LINE-(224,104):LINE-t 
224,128) 

2005 LINE(272,12B)-(302, 108) :LINE-(302,3 
6):LINE-(276,36):LINE- (293,26) :LINE-1269 
26) :LINE-(254,76):LINE-(230,26):LINE-(2 
09.56) :LINE{272,561-(302,30)2LINE (295,26 
Pt SE) 

2010 102249: A=207: V=74: GOGUB SE: XD=230:K 
B=270:Y=84:60SUE S:XD= 210: (42230: ÿ=04: CD 
EUR 5: XD=278: {A=302: V=108:E0SUB 5: XD=215 
1XA2230:V=118:60SÛE 5 

2015 VD=94:YA=118:{=215:G0SUB 19:VD=04:V 
A=104:X=216:C0SUE 10: YD=36: YA=B4: 4223016 
OSUB 10:YD=16: VA=84:X=254:GOSUB 10: YD=78 
:YA=74:X=260:G0GUE 10:YD=36: YA=74: 2292: 
GOSUR 10:YD=36: YA=108:X=278: 60SUR 19 
2020 XD=200:YD=128: XA=215: YA=11B:G0SUE 1 
5: XD=215:YD=04: KA=230: YA=B4:EOSUE 15: XD= 
264: VD=84:XA=269:YA=74:60SUE 15: XD=248:Y 
D=104: XA=297: YA=74: GOSUE 15:XD=248: YD=12 
8:14=278:YA=108:G0SUE 15: XD=224: YD=1094:X 
A=219: YA=94: GOSUB 15 

2025 RETURN 

2049 ‘Figure B 

2050 Fé="B":LINE{272,128)-(248,128):LINE 
-(246,104):LINE-(200,1041:LINE-(200,56: 
LINE-1272,56):LINE-1272,118):LINE-(287.1 
ALES (387,94):LINE-(302,841:LINE-(30 
2,3h):LINE-(230, 38) 2LINE-{200,56) :LINE(Z 
oi (203,36! 

2055 XD=220:X4=278:Y=60:E0SUB 5: KD=2155k 
h=263:Y=70:60SUE 5: KD=278: 18-362: Y=84: 60 
SUB 5:XD=215:{A=287:Y=04: GOSUE 5:XD=243: 
V={18:B0SUE © 

2060 YD=36:YA=60: X=230:GOSUE 19: VD=70: YA 
294:X=215:G0SUE 10: YD=60: YA=64:1=278:605 
UB 10:YD=70:VA=118:X=267:G0SUB 19 

204€ XD=200:XA=215: VD=i04:VA=94:GOSUE 15 


fs à f, 
161û LOCATEC, 


TEO N°13- AVRIL 4987 


REPAIRE 


1XD=248: VD=1 28: (A=ZET: VAS 19: COSURIS: vE= 
104: XA= 278: YA=G4:GUSUEI Es D=215: YD= 701 YA 
2220: YA=60:GOSUB1E: XD=267: XA=278: SOSUBIS 
tRETURN 





25930 ‘Figure C 2 

gi F$="CiLINE(239,104)-(239, 118} LINE 
224,128):LINE-1200, 1281 LINE 12 200,36}: 

LINE- {272,56}:LINE-(272,104):LINE-1224,1 

ÿ4): LINE- (274, 128) 

2105 LINE(272,104)-1502, 84) :LINE-(102, 80 
eLINE- (217,50): LINE-(717,26):LINE-(265, 
26):LINE-1254,38):LINE-1270,36) :LINE-120 
0,36): LINE (372, 461-(317,26) 

2110 KD=269:XA=317: V=50: GOGURS : AD=225 4: 4A 

2102: V=60: GOSURE: {D=230: V286: GOSURE: ÂD=7 
15: XA=2 30: Y=04: COSUBS: V=1 18: GOSURS 












2415 VD=94:YA=118:1=215:E0SUE 0: YA= 104: x 0 


2239:60S0B10: YD=T6: YA=G4: X=220: COSUE{O:\ 


RséG: 2254: GOSUB1 0: YD=2e: YA=ÈG: 12269: 605 
ÜB10 
2120 XD=200:XA=215:YD=12B:YA=118: COSUEIS à 


:XD=224: f4=2120: YD=104: *4=94: LOSURIE: XD=2 
15:XA=220: YD=94: VA=84: GOSUR(S: XD=254: XA= 
269: VD=8C: YA=S0: GOSUR1S: RETURN 

2149 ‘Fiqure D 

2150 F#="D":LINE(224,94)-1215,94):LINE-( 
215,46}:LINE-(230,48):LINE- 224,56): LINE 
-1272,58):LINE-(272,128):LINE-(248,12B): 
LINE-(246,104):LINE-{724,104):LINE-1224, 
cb} 

2195 LINE(272,128)-1317,98):LINE-(317.50 
:LINE- {302,00):LINE-{207,36):LINE-(730, 
36):LINE-(215,46}:LINE(272,56)-1302,36): 
LINE{317.50i-(302,€0) 

2160 XD=260: {A=702: Y=50: EOSUBS: pen 7 
60: GOSUBS: KD=266: K4=203:Y=74: GOSUBS: 

30: XA=254: Y=84: GOSUBE: XD=274: XA=270: + … 
:GOSURE: XD=207: KA=31 7: Y=09: COSURS 

ZIES YD=26:YA=84:}=250:6060910: VD=46: Az 
94:{2230: GOSUB! 0: YD=60: Y4=84: X2254: EOSUE 
10: YD=50: VAz74: X=289: G0GUEI 0: VD=74:YA=96 
:X=201:60SUB10 

2170 XD=215:KA=270: YD=04: YA=04: GÜSUHIE:X 
D=254: Kh=220e VD= 104: 204: D0GUE IS: D=254 

1 XA=269: YD=60: A=50: GOSUHIS: YD=84: Az 74: 
GOSUB1E: KD=248: XA=293: YD= 104: GOSURLS: YD= 
128: YA=98: GOSUB15: RETURN 
2198 ‘Figure E 
2200 F#="E":LINE(203,90)-1297,08}):LINE-: 
248,128):LINE-(Z48,104):LINE-(272,1041t:L 
INE-(317,74):LINE-(317,26):LINE-(245,26) 
{LINE-{200,56):LINE-(200,126t:LINE-(748, 
128) :LINE(272,104)-1272,56) :LINE-(317,28 
LINE (272.56)-(200,56) 
2205 XD=245: (A=269: Y=59: GOSUES: XD=212: YA 

2220: 270: GOSUBS: Y={i8:GOSURE: {D=26 Ti k és: 
117: V=74: GOSUBE : XD=260: XA=295: Y=08: EÜSUE 


€ 





25: 





3 


4 > 
DORE VRP ART SE. L'OTAN RS Dee TENTE ce 1] 
PONT PARTIS De VERS D et SUISSE CMS DNS 29 RE RL RE RS CPL TO AT ER TT ER ER Tee TE 





ESC PES IEC TINTIN ol 





REPAIRE 





US AD=215: 142245: YD=70: YA 250: EOSUBLS: À 


D=239; A=Ze0: COGURIE: VR= 18: YA=90:60SUBI 
S1AD=200: XA=215:YD=128: VA=118:G0SUR1S: D 
164: YA=74: GOSUBIE: RETURN 






2249 ’Fiqure F 

2250 FéS"F#iLINE(248,112)-1224,128):LINE 
-1224,104):LINE-(248,104:LINE-1248, 128) 
ILINE- (272, 128) :LINE-(302, 108) :LINE-(30 
36) 3LINE- (278,36): LINE-(293,261:LINE-(2 


07 7é) 
LEA T+ 


2295 LINE(293,26)-(289,26):LINE-12584,276) 
ILINE- 1230, 361:LINE- (200,56): LINE-{200,.1 
28):LINE-1224, 128) :LINE(200,56)-(1272,€6) 
ILINE-(302,36):LINE(272,56)-(272, 128) 
2280 AD=260: 2207: V=50: GOSURS: XD=254: XA 
2276: Y=60: GOSURS : Y=94: EOSURS: XD=230: KA=2 
54: Y=108:G0SUBS: XD=278: KA=302: GOSURS 
2265 YD=36: YA=108: X=230: COSUR A0: YA=60: X= 
254: 60SUB10:VD=84: V4=100: EOSUB10: YD=I6:Y 
A=bQ: K=278: GOSUEI 0: YD=04: YA= 108: 60SUBI 0: 
YD=cé: YA=E 0: X=260: GOSUBI 0: YD= 36: X=203: 60 
EUR:C fi 
2270 XD=200:(A=270: ap à Pre 
AD=246: fA=TIE: GOGURIS: XD=274: K4= 254: Ÿ 
Tee enr ne 
:YD={12: VA=1 00: GOSURIE: (D=254: 422 
LG: VA=SG: SOEUR 5: KD=278: XA=203: GDS 











F4 Le 

2300 F#$="G':LINE(302,59)-1317,E0):LINE-{ 
302,801: LINE- 1202, 36) sLINE-(23C, 365 LINE 
=1215.46):LINE-(270, 46): LINE-(274,S4)eLI 
NE- (275,953: LINE (202, 36): LINE (247.50) i 
519220) 

2505 LINE-1272, 128) :LINE-1248, 128):LINE- 
1246, 04):LINE-1224,104):LINE-(224,Eé6pel 
INE:272,56)-(272, 128) :LINE (215. 46)-(215, 
S4):LINE-(274,94) 


2510 X 













1#=50:60SUB5: XD=278: V= 
gs! 20: KA=278: Y=84: GOSUBS: (D=2 
4: 22795 S4: GOSUES: XD=203: KA=317:Y=08 
:GOSURE 

2TI5 10276: VA=84: 2230: 60SUE1 0: YD=46: va= 
54 :GOSUEI 0: YD=60: YA=S4: K=278: GOSUE 










D=154:Y4=04; COSUR1S: XD=248 
:GOSUBIE: {A=287: Yn= 128: YA=C 


:XA=27 : 
278: YD=È0:YA=50: GOSUBIS:RÈT 


YA=E 
8: GOSUB15: {D 
URN 
2349 ‘Figure H 
2350 F$="H":E011200, ne 2 HUE 
724128}-(267, M8}: 


2,B4):LINE- (3 


4 04 






69,381-(269,20):LINE-(254,36):LINE-(302, 
Tëi:LINE(200,56)-(245,28):LINE-(760,28) 
ZISE AD=345: 142260: V=50: GOSUBS: *D=21E: X8 
2239: V=70: COSUBS: 1D=278: {A=302: Y=84: E0SU 
ES: XD=263: KA=ZE7 : V294:GOSUBS: X0=254: KA=? 
78:V=108:G0SURS: KD=715:X4=239:V=119:60SÙ 
ES: 402353: Kh=297: GOSUES 
2360 VD=70:YA=118: 12215: 60SUB10: X=219:60 
SUBL0: YD=26: YA=SO: 12245: G0CUBI 0: YD=3£: X= 
269: S0SUB1 0: YA=108:X=254: GOSUE109: YD=94: y 
A=118:X=263: GOSUEIC: YD=84: YA=10B:1=278:€ 
osuR10 
23LE XD=215:XA=245: YD=70: YA=50:60SUBI5: x 
D=239: KA=260: GOSUBIE: XB=254: VD= 118: VA=10 
2: 60SUBIS: XD=263: KA=278: GOSUB1S: YD=94: YA 
284: GOSUB15: 1D=200: KA=215:YD=128:YA=1 18: 
GGSUB 15:RETURN 
2399 ‘Figure I 
2400 F$="I":LINE(230,104)-(239,118):LINE 
-{224,128):LINE-(200,128):LINE-(200,56): 
LINE-1272,5b):LINE-(272, 104) :LINE-(224,1 
Q4):LINE-{274,128::LINE(272,1041-(302,84 
}:LINE-(307, 60) 
2405 LINE-(317,50):LINE-(317,28):LINE-(2 
Ë9,26):LINE-(254,36):LINE-(230,36):LINE- 
(200,56):LINE(272.56)-1317,28) 

XD=268: XA=317: Y=50:GOSUBS: X0=230: XA 
2254: Y=60: GOSURS: XD=278: KA=302: GOSUES: Y= 
B4:GOSURE: XD= 215: XA=263: Y=70: GOSUBS: XA=2 
39:Y=118:GOSUBS: XD=219: KA=2L3: Y=04: GOSUE 
2415 VD=70:VA=118: X=215: G0SUB10: YD=36: YA 
260: X=230: GOSUB10: Y=254: GOSUE1 0: YD=94: YA 
=104:X=279:GOSUB10:YD=70: YA=04: X2263: 605 
UBiQ: YD=60:YA=84: 12278: G0SUB1 0: YD=26: YA= 
50:X=269: 60SUB10 
2420 XD=215: KA=230: VD=70: YA=60:60SUB15: X 
D=254: XA=269: YD=60: YA=50: 60SUB15: XD=200: 
XA=Z15:VD=128: YA=118:60SUB15: 10-224: X=2 
39: YD=104: YA=94: GOSUR15: XD=263: XA=278: YD 
=94:YA=84: GOSUB15: YD=70: YA=40: GOSUBIS:RE 
TURN 
2449 ’Fiqure J 
2450 F$="J":LINE(278,100)-(278, 108) :LINE 
(248.128! :LINE-(248, 104) :LINE-(272, 104) 
:LINE-1702, 894} :LINE-(302,36):LINE-(254,3 
b':LINE-1260,26):CINE-(289,36) 

2455 LINE269,28)-1245,26):LINE-(200.56) 
1LINE-:709,128):LINE-(248, 128) :LINE (272, 
1645-1272,561:LINE-(200,.56) :LINE (272,56) 
-1307,34) 

2440 XD=245: (42289: Y=50:60SUB5: XD=21E: XA 
2239: Y=70: GO0SURS: V=118: GOSUBS: XD=278: XB= 
302: Y=04: GOSUES : XD=254: YA4=278:Y=108:60SU 
B5 


2485 VD=7C:VA=118:1=215: 60SUE10: X=239: 60 
SUB10: YD=26: YA=S0: 12245: GOSUB10: YD=36: X= 
259: G0EUR1 0: VA=108:1=254: GOSUB1 0: YD=84: Y 


TEO N°43 - AVRIL 1987 


B={00:1=278:E0SUB10 

2475 XD=200:XA=215: YD=128: YA=118: GOSURIS 
1XD=239: A=254:YD=118: YA= 108: EOSUB15: XD= 
248: 1A=278:YD=104:YA=84:GOSUBI5: XD=215:X 
2245: YD=70:YA=50:G0SUB1S: XD=239: XA=269: 
GOSUB:5: RETURN 

2498 ‘Figure K 

2500 F#="K":LINE(200.56)-(230,26):LINE-{ 
294,36):LINE-(269,28):LINE-(317. 26): LINE 
-(272,56):LINE-(200.56):LINE-(200,104):L 
INE-(248,104):LINE-(248,128):LINE-1272,1 
29):LINE-(287,118):LINE-(207,04):LINE-(7 
17,74):LINE-(317,26):LINE(272,56)-1272, 
28) 

2505 XD=269:XA=317:Y=74: GOSURS: XD=230: XA 
5254: Y=84:GOSURS: XD= 2467: KA=287: Y=94: 605 
B5:Y=118:G60SUBS 

2510 YD=26: YA=84: X=270:GOSUBI 0: X=254: 605 
UBIC:YD=26: VA=74: X2260: GOSUBI 0: YD=94: YA= 
119: X=283:G0SUB10 

2515 XD=200:KA=230: VD=104: YA=84: 60SUR15: 
\0=254: XA=289: YD=84: VA=74: GOSURIS: YD=248 
1XA=263: YD=104:YA=94: GOSUB15: YD=1 28: YA=) 
18: G0SUB!E: RETURN 

2549 ‘Fioure L 

2550 F$="L'eLINE(207,76)-(203,26):LINE-( 
269,2b):LINE-(254,36):LINE-(230, 36):LINE 
-(200,56):LINE-(272,56):LINE-(302,.36):L] 
NE-(278,36):LINE-(295,26):LINE(230,i04)- 
(239,118) 

2598 LINE-(224,128):LINE-(200, 128) :LINE- 
(200,58):LINE(224,129)-(224, 104) :LINE-(2 

46,104): se Re 128):LINE-(272, Ses 1 






_ (302,34) 
2565 XD=260: 42207: Y250: GOSUBE: XD=254: XA 
2278: Y=80: GOSUBS: XD=230: Y=84: GOSURE: XD=2 
15:K4=230: 204: GOSUBS : Y=119: GOSUBS: KD=27 
8: XA=302: Y= 108: GOSURES 
2095 VD=36: 14294: X=279: GOSUR1 0: VA=bO: X=2 
J4: GOSUEI 0: 12278: G0SUB! 0: YD=26: YA=SÙ: K=2 
#9: S0SUE 10: YD=34: 12297: GOSUEI 0: YD=84: YA= 
108: X=278:B0SUB10: YD=94:YA=118:X=215:E0S 
UB10:VA=104:X=270: G0OSUB19 
2570 KD=200:XA=215: YD=128: YA=! 18: GOSUELE 
1XD=215: XA=270: YD=94: YA=G4: GOSUR15: XD=22 
A: X4=ZT0: YD= 104: VA=94: GOSUBIE: ÂD=248: {8 
278: YA=84: GOSUB15: YD=129: YA=108: GOSURIS: 
KD=254: K 42260: VD=8G: YA=SO: GOSURI 5: XD=278 
1142297: G0SUBI5: RETURN 
2599 ‘Fiqure M 
2690 F$="M%:LINE(245,28)-(289,24):LINE-( 
254,36!:LINE-(302,36):LINE-1272,56): LINE 
-(209,58):LINE-(245,28):LINE(269,28)-(74 
9,38):LINE{200,.54)-(200,104) 
2605 LINE-(748,104):LINE-(248, 128) :LINE- 
1272,128}:LINE-(287,11B):LINE-(287,94)sL 
INE-1302,84):LINE-(202,36;:LINE(272,.5b)- 
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1373,128) 

2410 XD=245: XA=280: 250: GOSURS: ÉD=270: LA 
2284: Y=£0: GOSUPS: K4=302: Y=84: GOSUES: XD=5 
63:XA=297: 204: GOSURS: 2110: SOSURE 

2415 VD=26: YA=EO: X2245: OSEO: VD= 36: VAS 
£G: 12254: GOSUR1 0: Y4=50: {22602 GOSUB1 0: YD= 
60: YA=B4: X=230:GOSUB1C: YD=94: VAS 18: 228 
2:608810 

2820 XD=230:\A=245: VD= 60: YA=SC: GOSUBIE: À 
D=254: KA=240: GOSUE1S: XD=200: {A=230:VD= 10 
4: VA=84: GOSUBIS: XD=248: {4=263: VA=04: GOSL 

B15:VD=128:YA=118:G0SUB1S: RETURN 
nn ‘Figure N 
2É5G F$="N":LINE(302,50)-1317.S0):LINE- 
302,60):LINE-(2027,36):LINE-(230, 36): LINE 
-(215,46):LINE-12139,46):LINE-(224, 56) LI 
NE-(272,58):LINE-1302, 38): LINE (224,94)-{ 
215,94) 

2655 LINE-(215.4b):LINE(224,5b)-(224.194 
}tLINE-{248,104):LINE-(248,128):LINE-(27 
LINE-(317,98):LINE-1317.50):LINE( 
272,128)-(272,54) 
2440 KD=245: {A=302: 250: GOSUES: XD=230: Ÿ= 
60: 60SUBS: KD=245: KA=295: Y=74: GOGUBS: XD=2 
24: 42239: Y=094: GOSUBS: KD=203: K4=317: V=08 
: GOSURS 
2665 YD=36: YA=80: X 2230: GOSUR1 0: YD=50: VA= 
74:X=245:60SUB10:YD=46: YA=94: 12219: GOSUE 
10:VD=74:YA=08:X=293: GOSUBI0 
ee XD=230: KA=245: YD=60: VA=50: GOSUBIS: 
Z1S:YD=94:YA=74: GOSUEIS: {D=748: LR 
as GOSUB15: VD=128: VA=9R: EOSURIS: XD=2 
24:X4=230: VD=104: YA=94: GOSUR1S: RETURN 
2409 ‘Fiqure 0 
2700 F$="D":LINE(279,104)-(239, 118)eLINE 
-(224,128):LINE-(224,104):LINE-1272, 1041 
LINE-(272,56) :LINE-1200.58):LINE-(200.1 
28):LINE-(224,128) 
2705 LINE(272,104)-(302,84):LINE-(302, 60 
J:LINE-(317,.S0):LINE-1317.26):LINE-1288, 
Zh):LINE-(254,36):LINE-(230,36):LINE-(29 
® dé): LINE (272, 54)-1217,28) 

2710 XD=269:XA=717:V=50:GOËUBS: KD=278: XA 
2302: V=80:G0SUBS: Y=84:E0SUBS: XD=210: 14=2 
54: 60SUBS: XD=215: XA= 282: Y=04: EOSURE: XD=2 
39:V=70: GOSUBS: XD=215: (A= 270: Y=118: GOSUE 


2715 VD=28: YA=50: 2280: GOSUB1 0: VD=38: YA= 
B4: 2230: G0SUB1 0: X=254: EOSUB10: YD=94: VA= 
119:X=215: 60SUB10:YD=70:YA=104: 2270: 605 
UBIO:VA=94: X=263:E0SUB10: YD=60: YA=G4: X=7 
78:60SUB{ 

2729 XD=283:XA=278: YD=94: YA=94: GOSURIS: Y 
D=70:YA=60:GOSUB1S: (D=239: KA= 269: YA=SOLE 
QSUBIS: KD=215: XA=270: YD=94: YA=84: GOSUFIS 
11D=224: XA=254: YD=104: G0SUBIS: XD=200: KA= 


Mn 2:5:YD=128:YA=118: BOSUR1S: RETURN 


2749 ‘Fiqure F 








REPAIRE 


2750 F#="PriLINEIZE, 38}-1260,26):LINE-t 
254,36): LINE-(302,36):LINE-1272,S6):LINE 
-(200,56):LINE-(245,26):LINE- (269,28): LI 
NE1206,56)-(200,138):LINE- (274, 128): LINE 
-1239,118):LINE-(239,104) 
2785 LINE(302,38)-(302,.84): “. NE-{272,104 
}:LINE-(224, 104) :LINE-(224,128):LINE(272 
«s6t-(277,104):LINE(2617.1 4 RARRICNT 
INE-{ 239, 118) :LINE (278, 100) - {274.108):L1 
NE-1263,119) 
2780 1D2245: 422860: V=5û: GOSURE: XD=Z15: XA 
2239: Y=70:GOSUBS: Y=118: G0SURE: XD=210: j£= 
282: Y=94: GOSURE: XD=2£4: fA=278: V2 108: EQEU 
ES: XD=278: 42302: 294: EOSURS 
ZTES YD=28: Y4=50: 12245: GOSUB1 0: #0=76: X=2 
69:60SUR10:YD=70:YA=116:{=215: COGUBIO: VA 
=104:X2230: GOSUEL O0: VD=26: YA=108:X=254: 60 
SUBI 0: VD=84: YA=100:X=278: 608010: YD=84: Ÿ 
A=104:X=283:E0SUB10 
2770 XD=215: KA=245: VD=70: YA=EG: GOSUBIE: À 
D=239: (A=249: EOSURIS: XD=200: XA=21E: VE=17 
8: YA=118:G0SUE1S: 1D=2284: KA=ZIS: YD= 104: VA 
=04:GOSUR15:(D=270: KA=TS4:VD=1189: VA= 108: 
GOSUR1S: XD=267: XA=278: YD=04: YA=04: COSUEI 
5: RETURN 
2799 ’Fiqure 5 
2800 F#="G":LINE(Z02,50)-(317,.50):LINE-( 
102,60):LINE-1702,36):LINE-(230, 38) :LINE 
CRUE INE-1272,5É):LINE- 1307, 3o):LI 
NE(209.5£)-(200,80) 
2805 LINE- En BC):LINE-1274,1G4):LINE-( 
248.104):LINE-1748,128):LINE-(272,128)sL 
INE-(317,98):LINE-(317,50): LINE (272, 56)- 
(272,128) :LINE(215.90)-(215,94):LINE- 127 
4,94) 
2819 1D=2"93 1A=S02: 











V=Eûÿ: ECEURS: YD=278: Vs 
£0:GOSURS: XD=220: KA=278: V=84: COSUBE: XD=7 
24:XA=210:Y 94: :GOSUBS: XD=293: XA=717:V=08 
:60SUBS: XD=215: XA=239: V=70: GOSUES 
LE à VD236: VA=84: 2230: 60010: YD=80: X22 
B:G0SUBIC: YD=50: VA=98: 12267: GOSUB 0: YD= 
0: Va 80: 1=21E: COSUR1 0: VA=84: *2239: COSUE 
10 
2826 XD=248:XA=203: VD=128: YA=98:COSURIS: 
X4=278:VD=104: VA=84: GOSUBIS: 1D=224: 4223 
D: YA=04: GOSUB1E: YD=20: Y4=70: COSUBIE: D=7 
00: XA=215: GOSUBAS: KD=215: KA=230: VD=94: YA 
284: GOSUR15: 0=278: KA=297: YD=E0: VASE 0:60 
SUB15: RETURN 
2849 ‘Figure F 
20 F$="R":LINE(272.56)-(317,26):LINE-( 
245,26):LINE-(200,.56):LINE-(272, 86) :LINE 
1229 .104)-1239,118):LINE-(228,128):LINE- 
{200,128):LINE-1200,56):LINE(224,.129}- (2 
24,104) 
2955 LINE-(272.104):LINE-(302,84):LINE-( 
302.108):LINE-1317.98):LINE-(317,26)s LIN 
E(272,56)-1272, 104) :LINE (239, 108-1107, 1 
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ÜE: 
2860 1D=220: XA=302: V=84: GOBURS: XA=230: = 
108: OSUBS : KD= 215: Y=94: 60SUBS: V=118: E0SU 
HS: KD=245: 42317: V=08: GOSUBS 
2865 YD=26: YA=98: 245: G0SUB10: YD=84: 
108: 12230: 60SUB1 0: VD=94: Yazt is 42215: 
U10:YA=104: 12239: E0SUR10 
2970 XD=200:{A2215: VD=120: az 118: E0SURS 
LXD=215: k4=230: YD=04: YA=S4: GOSUBLE: XD= 22 
G4 KA=245: YD= 108: Va=08: GOSUE1S: XD=274: x4= 
229: YD=104: YA=4: GOSUR1E: RETURN 
2899 ‘Figure S 
2000 F$="5":LINE(293,26)- 
276.36): LINE- (30: 
-1200,56):LINE- 
NE-(269,26):LINE-(297, 
302,40):LINE-(117,50): LINE- (302. .50) 
2905 LINE(317,50)-(317,98):LINE-(277,128 
}iLINE-(248, 128) :LINE- (248, 194) :LINE-(22 
104): LINE-(224,128):LINE- (200, 128): LIN 
E-1200,58):LINE (224, 128)-(248,112):LINE( 
272,56)-(272,128) 
2910 XD=245: XA=240: 250: BOSUBS: XD=203: Xà 
2302: 60SUBS: XD=230: XA=254: V=80: EUSUBE: XD 
2278: 1A=202: FOURS: XD=249: (A2 293: V=74:60 
3UBS: XD= 245: (A= 269: Y=98: EOBURE : }D=207: X4 
2217: SOUS 
2915 YD=36: YA=60: X=220: B0BUR1 0: k2254: 600 
UB10:4=278:G0SUE 10: VD=26: YA=S0: 2760: 608 
UB19:VD=36: 2293: GOSU1 0: YD=74: Va=08: EE 
Ut C:X=269: 60SUB10: YD=50: 12245: GOSUB 0 
2020 XD=270:XA=245: YD280: Ya=50:EOSUBLS: x 
D=254: X4= 269: 60SUB15: XD=278: X47207: GOSUE 
15: D=224: 1A=269: VD=104: Ya=74: GOSUBLE: XD 
2248: 147297: G0SUB 15: YD= 128: VA=90:EDSURS 
2925 XD=200: (42245: G0SUB 15: XD=248: X4=249 
:YD=112:60SUB15: RETURN 
2949 ‘Figure T 
Cu Eg=nTis LINE{2E0,76)-17 150,2 és LINE- Î 
54,38):LINE-(307,36):LINE-(277, 56): LINE 
_1200,S8) 2 LINE- 1245, 26) 2LINE- (249, 2VLI 
NE1200,54)-(200,104):LINE-(248, 104) 
2955 LINE-1748, (28 sLINE (272,128) :LINE- 
(272,58): LINE (272, 128)-1287,119):LINE- (2 
87,94):LINE- (702,84) I LINE- 1302, 26) 
2960 XD=245: 62260: V=50: EOSUEE: {D= 254: XA 
22781 V260:GOSUES: XD=219: az 243: v=70: 60SU 
B5: XA=287: V=04: GOSUBS : (D=263: Ve! 18: G0SUE 
S: 102278: XA=302: V=84: GOSUES 5 
2065 YD=26: YA=S0: 2245: G0SUB10: YD= 361422 
#9: 60SUB10: VD=70: Ya=94: 12215: G0SUB: 0: az 
118:X=263:60SUB1 0: YD= 34: Y=a0: 2254: 60 
310: YD=60: VA=84: 12278: G0SUB1 0 
2970 XD=215: XA=245: YD=70: Va=50:GOSUB1E: À 
D=254: XA=249: YD=40:S08UB15: (D=26 3: ka=274 


LvE #= 
ILE 

























+ YD=70:Vé=40: GOSURIE: KD=24B: VO= O4: VASE 
EOSUB:5: XD 
St RETURN 


:S0SUBIE: KA=ZEG: YD=128: YA=118: 
2200: XA=215: YD=104: VA=94: COSURI 





TECHNIQUE 


OUT SUR L’'EXTRAMONITEUR 


(En plusieurs épisodes. Suite des n°8 à 11) 


| L. macro-interpréteur graphique MIG est une rou- 
tine, intégrée à l'extramoniteur, permettant de lire une 
table de données graphiques exprimées en binaires, et 
de tracer la figure correspondante. Cette table, appelée 
aussi “objet graphique”, spécifie une suite d'opérations 
élémentaires accompagnées des paramètres nécessai- 
res au tracé de l'objet en question. 

MIG trace des lignes, des rectangles, des ronds. Les 
figures élémentaires fermées (ronds, rectangles, etc.) 
peuvent être pleines ou vides. Les motifs de remplissage 
sont également spécifiés par MIG. Les opérations élé- 
mentaires sont appelées ici MACROS (contraction de 
macro-instructions) etont toutes leur propre syntaxe. Ce 
terme macro-instruction est ici un abus de langage car il 
est généralement réservé aux blocs d'instructions répéti- 
tives des macro-assembleurs. On peut subdiviser ces 
“macros”, reconnues par MIG, entrois groupes, en fonc- 
tion de leur action: 

— les MACROS de POSITIONNEMENT; 

— les MACROS GRAPHIQUES; 

— les MACROS de CONTROLE. ï 

Une macro graphique est constituée d'un code opération 
suivi, éventuellement, des paramètres de la macro. Les 
paramètres sont estimés en binaire en complément à 
deux. Certaines macros sont doublées afin de pouvoir 
être paramétrées par des valeurs de 8 ou 16 bits. Les 
macros sur 16 bits commencent par la lettre “L” comme 
long. 

On accède à MIG par l'intermédiaire de l'extramoniteur 
(point d'entrée $1C). Le registre X doit pointer sur l'objet 
à tracer. Les registres XXXXX et YYYYY ($61A1 et $61A3 
pour TO et $21A1 et $21A3 pour MO6) spécifient les 
coordonnées, sur l'écran, du point de départ du tracé. 
Comme avec toutes les routines graphiques de l'extra- 
moniteur l'application doit définir le mode d'affichage, la 
fenêtre de travail et le type de tracé avant l'appel de MIG. 
Au retour de MIG, l'objet est visualisé sur l'écran et les 
registres XXXXX et YYYYY sont chargés avec les coor- 
données du dernier point tracé. L'écriture des objets MIG 
peut être intégrée dans une table graphique et de visuali- 
sation (TGV) comme décrit dans TEO n°10. On dispose 
ainsi, de deux niveaux de définition d'objet: un niveau 
“TGV” et un niveau “MIG”. - 

Auniveau TGV: les macros sont définies par l'utilisateur. 
Ce sont les routines utilitaires écrites pour l'application. 
De ce fait, elles ne sont limitées que par l'imagination du 
programmeur. Les exemples donnés ne sont pas exhaus- 
tifs, le lecteur peut en imaginer d'autres. 

Au niveau MIG: les macros sont définies par le système et 
| correspondent aux figures élémentaires de la géométrie. 
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que épisode: 
l’interpréteur graphique (MIG) 
et ses MACRO-instructions. 


MIG reconnaît également des macros de positionnement 
et de contrôle. Les macros de positionnement sont utili- 
sées pour définir la valeur courante du curseur, l'adresse 
du motif de remplissage, ou le statut des paramètres 
(absolu ourelatif). Les macros de contrôle permettent de 
structurer l'objet MIG en utilisant des appels de sous- 
programmes (écrits également en MIG) ou en définissant 
des boucles ou des macros de répétitions. L'intérêt de 
MIGest de faciliter la programmation et la représentation 
d'images complexes dans un minimum de place mé- 
moire. Dans la suite de cet article nous exposerons une à 
une les macros MIG et nous décrirons leur action dans le 
cadre de “l'objet graphique.” Auparavant nous donnons 
un exemple d'application minimun de MIG afin de bien 
situer l'intégration de MIG dans la Table graphique et de 
visualisation. 

Machines TO: 


ERP 11 22211211122111. 111111211112 
* MACRO-INTERPRETEUR GRAPHIQUE MIG * 
A AAA AAA EH D CE EX TON 


E803 PUTC EQU $E803 AFFICHAGE 
ECOC EXTRA EQU $ECOC EXTRAMON I TEUR 
E7C9 RDIR EQU #E7C9 Registre de donnees 
E7CB RCOM EQU #E7CB Registre de commande 
B7DC RE7DC EQU SE7DC Registre GA 
6145 XL EQU $61A5 BORD GAUCHE 
61A7 YB EQU S61A7 BORD HAUT 
6149 XR EQU #614A9 BORD DROIT 
61AB YT EQU S61AB BORD BAS 
6141 XXXXX EQU #61A1 Ordonnee 
61A3 YYYYY  EQU $61A3 Abscisse 
6140 TRATYP EQU 86140 Type de trace 
619F COLOR EQU #619F Couleur 
6288 VITH  EQU #6288 Drapeau de couleur 
6168 DEBZON EQU $616B Debut de ZONE 
616E FINZON EQU #616E Fin de zone 
2*TYPE DE TRACE 
0000 NORMAL EQU o Formal 
0001 TRABSP EQU 1 Transparent 
0002 INVERS EQU 2 Inverse 
0003 MODET  EQU 3 Et logique 
0054 MOD40  EQU 354 Mode 40 colonnes 
0058 MOD80 EQU 558 Mode 80 colonnes 
0059 BIMA4 EQU #59 Bitmap 4 couleurs 
005E BIMA16 EQU #5E Bitmap 16 couleurs 
0049 MOPA2 EQU s49 Page 2 
0048 MOPA1  EQU s48 Page 1 
0044 OVPA2 EQU s44 Overlay page 2 
004B OVPAL EQU s4B Overlay page 1 
0088  TOVPAO EQU s88 Triple overlay p0 
0089 TOVPA1 EQU #89 Triple overlay pi 
0084 TOVPA2 EQU s84 Triple overlay p2 
0088 TOVPA3 EQU s8B Triple overlay p3 
0041 RBIMAS EQU sai BITHAP SPECIAL 
0021 RBIMA  EQU s21 BITMAP STANDARD 
0018 ESC EQU #18 Escape 
0000 TER EQU s00 Terminateur 
0000 RESETC EQU 500 Reset 
0014 ERRMSC EQU s14 MESSAGE D'ERREUR 
001c CHOIX EQU 28T Routine Choix 
0018 MIG EQU 30T Interpreteur Graph 
* COULEUR 


0000 NOIR EQU LI 
0001 ROUGE  EQU 1 
0002 VERT EQU 2 
0003 JAUNE EQU 3 
0004 BLEU EQU 4 
0005 MAGENT EQU s Magenta 
0006 CYAN EQU 6 
0007 BLANC EQU 7 
8 


0008 GRIS  EQU 
0009 ROSE HQU 9 
9004 VERTC EQU sA 
000B SABLE EQU sB 
000€  BLEUCL EQU sc 
000D  PARME EQU sD 
000€ BLEUCI EQU $E 
000F ORANGE EQU SF 


Vert clair 
Bleu clair 


Bleu ciel 
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9E00 


9E00 OF 17 E7 67 
9E04 A7 27 

9E06 34 16 
9E08 F6 E7CB 


9B0B C4 FB 


9EOD F7 E7CB 
9E10 8E 9E00 


9813 A6 86 
9E15 B7 57c9 
9818 CA 04 


9B1A F7 E7CB 
9E1D 35 96 


9E1F 34 06 
9B21 C6 00 
9E23 LD ECOC 
9826 86 00 
9E28 BD 9E06 
9E2B 35 86 


9E2D 34 7F 
9E2F 17 FFED 
9832 8E 9E3E 
9E35 17 3EC8 
9838 35 FF 
9E3A BD 9E2D 
9E3D 3F 


9E3E DD4C 
9E40 04 

9E41 1B 59 00 
9E44 DD6F 
9E46 04 

9E47 00 01 00 
9E4A DD5E 
9E4C 09 

9E4D 0000 0000 
9E51 013F 00C7 
9E55 DD41 

9E57 03 

9E58 9ESC 
9ES5A 0000 


9ESC 05 
9ESD 08 64 64 
9860 OC 73 76 
9E63 00 


DDOO 


DDOO 34 10 


*DRAPEAU 

AVECOU EQU 500 
SANCOU EBQU SFF 
VIDE EQU 00 
PLEIN EQU SFF 


Avec couleur 
Sans couleur 


#MACROS GRAPHIQUES eur 8 bits 
POIN EQU 10T Point 

LIGN EQU 12T Ligne 

REC EQU 14T Rectangle vide 
RECF EQU 16T Rectangl plein 
ROND EQU 17T Cercle 

RONDF EQU 18T Cercle plein 
*MACROS GRAPHIQUES eur 16 bits 
LPOIN EQU ° Point 

LLIGN EQU 11T Ligne 

LREC  EQU 13T Rectangle vide 
LRECF  EQU 15 Rectangle plein 


*MHACROS DE POSITICNNEMENT 

FCUR EQU 8 Position curseur 
LFCUR EQU 7 Position curseur 
MOTI EQU 4 Pointeur motif 
MOTIR EQU 21T Point.motif rel.co 
LMOTIR EQU 22T Point.rela.long 
ABS EQU 5 Absolu 

REL EQU 6 Relatif 


*MACROS DE CONTROLE 
ENDSEQ EQU o 
ASP EQU 1 
RASP  EQU 19T 


Fin de sequence 
Appel s/ programme 
Appel s/prog. rel 
Appel s/p rel.Long 
n fois la sequence 
Fin seq. repet 
n fois la macro 


LRASP  EQU 20T 

DO EQU 2 

LOOP  EQU o° 

MULTIP EQU 3 
ORG $9E00 

#Commutation des banques RAM 

TABANQ FCB s0F,817,8E7,867,8A7,827 


BANQ PSHS D,X 
LDB RCOM Lecture du registre 
* de controle du PIA 
ANDB #SFB 
* -ection 
STB RCOM 


Force le mode dir- 


LDX #TABANQ Pointe sur la ta- 
+ ble des banques 
LDA A,X Valeur a passer 


* pour commuter la banque 
STA RDIR Charge le registre 
* de direction 


ORB #3504 Repositionne le PIA 
en mode donnee 


*Initialisation generale Sous /ASM 
INEXMA PSHS D 


LDB #RESETC Reset (pas s/BASIC 
JSR EXTRA 
LDA #0 BANQUE 5 s/ BASIC 
JSR BANQ 


PULS D, PC 


* POINT D'ENTREE 

DEEBUT PSHS A,B,X,U,Y,DP,CC 

LBSR INEXMA 

LDX #PROG1 POINTEUR 

LBSR ECRIMO TRACE LE DESSIN 
PULS A,B,X,U,Y,DP,CC, PC 

JSR DEBUT 

SyI 


START 


x TABLE GRAPHIQUE ET DE VISUALISATION 
* CTGV) 


PROG1 FDB AFFICH Mode d'affichage 
FCB 341 Longueur 
FCE ESC, BIMA4, TER 
FDE TRACE Type de trace 
FCE 3+1 Longueur 
FCB NORMAL, ROUGE, AVECOU 
FDB FENE Fenetre 
FCB 8+1 Longueur 
FDB 0,0,319T, 190T 
FDE INTER Interpreteur gra 
FCB 2+1 Longueur 
FDB OBGR1 Objet pointe 
FDB 0000 FIN 
*OBJET GRAPHIQUE 1 
OBGR1 FCB AES Absolu 
FCB FCUR, 100T,100T Curseur 
FCB LIGW,115T,118T Ligne 
FCB ENDSEQ Fin objet 


AO RO RON NERO ON OO EE 

* ROUTINES UTILITAIRES dé 

RER AR RO EE ER RER TONER 
ORG sDDO0 

* ELABORE LE DESSIN POINTE PAR X 

ECRIMO PSHS x 











A 

























man mg Rs ne 





RSR ENTX 


OEDE 


DD10 


DD38 17 OED1 


DDSB 30 1F 
DDSD 8D op 
DDSF 35 84 


DD4C 34 14 
DD4E 30 o1 
DDS0 B6 80 
DDS2 27 05 
DDS4 17 OAAC 
DD57 20 F7 
DD59 35 94 
DDSB 34 sa 
DDSD 30 01 
DDSF CE 6145 
DD62 Ce 04 
DD64 104B 81 
DD67 10AF C1 
DDSA 54 

DD6B 26 F7 
DD6D 35 D4 
DD6F 34 14 
DD71 30 o1 
DD73 E6 80 


DD7A F7 619F 
DD7D 86 64 
DD7F F7 6288 
DDe2 C6 1c 
DD64 BD DD29 
DDe7 35 94 
0000 





0002 
AT7AS 
A7DC 


2145 
2147 
2149 
214B 
2141 
2143 
2140 
219F 
2288 
216B 
216E 


0000 
0001 
0002 
0003 
007c 
007D 
0078 
007F 
0081 
0080 
0082 
0083 
0084 
0085 
0086 
0087 
0041 
0021 
0018 
0000 
0000 
0014 
001c 
001E 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 


AR3 TST ,X LA FIN ? 
BEQ FINO QUI 
JSR (,X++1 TRACE UN BLEMEST 


* DU DESSIN 
LDA ,X N. D'OCTETS 
LEAX ‘A,X FEV POINTEUR 
BRA AR3 


FIMO PULS X, PC 
* Le code de la routine extramoniteur 
* est contenu dans B 
KESSAG RXB 25T 
TRANON PSHS B 
LESR EXTRA Appel la routine 
TSTB Teste s1 erreur 
BEQ AVI Pas d'erreur 
LDX #XESSAG Erreur. Le message 
+ d'erreur est extrait at sauvegarde 
* dans MESSAG * 
TFR B,A Jo d'erreur 
LDB #ERRMSC Routine de traite- 


Reserve 25 octets 





BSR  AFFICH Affichage du mes- 


ge 
Avi PULS B,PC 


* APPEL de l'interpreteur graphique 
INTER PSHS X,B 

LDX 1,x 

LDB  #XIG 

JSR  TRANON 

PULS  X,B,PC 


Dee le ue halte de ce ie 
* tee par X 
AFFICH PSHS B,X 


LEAX 1,X 
AFF1 LDB ,X+ Un caractere de la 
* chaine 

BEQ Av2 Un zero ? 

LBSR PUTC on.Alors on affi- 
* che 

BRA AFF1 On continue 
Av2 PULS X,B,PC 
Bons noomnenres sense sonne ennne rene 


* DEFINIT UNE FENETRE DOSNT LES COORDOS- 
* -NBES SONT POINTES PAR LE REGISTRE X 


FESE PSHS B,U,X 
LEAX 1,X saute n.octets 
LDU #xL ler registre 
LDB #4 4 valeurs 

AR1 LDY »,Xt+ Lecture coordonnees 
STY »U++ Ecriture jen 
DECB Fin ? 
BNE AR1 Yon 


PULS B,U,X, PC 


* Les parametres du trace sont pointes 


* par X 
TRACE PSHS B,X 
LEAX 1,Xx saute n.octets 
LDB ,X+ Type 
STB TRATYP 
LDB ,X+ Couleur 
STB COLOR 
LDB Ba Drapeau de couleur 
STB VITH 


LDB #CHOIX Routine CHOIX 
JSR TRAMON Appel extramon 
PULS X,B,PC 


END 


RARE R ERA EREENENENNERETEEEX 
* XACRO-INTERPRETEUR GRAPHIQUE MIG x 
RÉAAIEERELEEELERERELEEENELEEEERELEMOGLEX 
PUTC EQU $s02 AFFICHAGE 


GA7AS BQU SA7AS Registre GA 
RA7DC EQU SA7DC Registre GA 
XL EQU #2145 BORD GAUCHE 
YB EQU #2147 BORD HAUT 

XR EQU 52149 BORD DROIT 
YT EQU $214B BORD BAS 
XXXXX  EQU S21A4 Ordonnee 
YYYYY  EQU #2143 Abscisse 
TRATYP EQU #2140 Type de trace 
COLOR  EQU #219F Couleur 

VITH EQU 32288 Drapeau de couleur 
DEBZON EQU #216B Debut de ZONE 
FINZON EQU 5216E Fin de zone 


*TYPE DE TRACE 


NORMAL EQU OO Normal 
TRANSP EQU 1 Transparent 
INVERS EQU 2 Inverse 

MODET EQU 3 Et logique 


NOD4O HBQU  s7C 
MOD8O EQU  s7D 
BIMA4 EQU 37E 
BINA16 EQU  37F 
MOPAZ EQU s81 
MOPA1 EQU 380 
OVPA2 EQU 582 
OVPAL EQU 383 
TOVPAO EQU 364 
TOVPA1 EQU 385 
TOVPA2 EQU 386 
TOVPA3 EQU 387 
RBIMAS EQU 341 
RBIMA EQU  s21 
ESC  EQU 
TER  EQU 
RESETC EQU 
ERRMSC EQU  S14 
CHOIX EQU 
XIG EQU 
*COULEUR 

NOIR EQU 
ROUGE  EQU 
VERT  EQU 
JAUNE EQU 
BLEU  EQU 
MAGENT EQU 
CYAN EQU 
BLANC EQU 
GRIS  EQU 
ROSE EQU 


Mode 40 colonnes 
Xode 80 colonnes 
Bitmap 4 couleurs 
Bitmp 16 couleurs 
Page 2 

Page 1 

Overlay page 2 
Overlay page 1 
Triple overlay p0 
Triple overlay pi 
Triple overlay p2 
Triple overlay p3 
BITMAP SPECIAL 
BITMAP STANDARD 
Escape 
Terminateur 

Reset 

KESSAGE D'ERREUR 
Routine Choix 
Interpreteur Graph 


vu 
Son 
S0% 


un 
EL] 
CET 


Magenta 


CCE ETES 





0004 
0008 





VERTC EQU sA 
SABLE EQU :B 


Vert clair 


6809 LANGUAGE MODULE 2.0 


000c - 


000D 
000E 
0007 


0000 
00FF 
0000 
00FF 


0004 
000c 
000E 
0010 
0011 
0012 


0009 
0008 
000D 
000F 


0008 
0007 
0004 
0015 
0016 
0005 
0006 


0000 
0001 
0013 
0014 
0002 
0000 
0003 
5E00 


5E00 B7 ATAS 
5503 39 


5E04 34 06 
5806 ce 00 
5808 103F 
SEOA 86 00 
SEOC BD 5800 
SEOF 35 86 


SE11 34 7F 

5813 17 FFBE 
5516 8E SE24 
5B19 17 3BE4 
SE1C 35 FF 

SB1E BD SB11 
SE21 BD B000 


5E24 9D44A 
5E26 04 

SE27 1B.7E 00 
SE2A 9D6C 
SE2C 04 

SB2D 00 01 00 
SE30 9D58 

5B32 09 

5E33 0000 6000 
5837 013F 00C7 
SB3B 9D3F 
SE3D 03 

SE3E 5E42 

5B40 0000 


5842 05 
SE43 08 64 64 
5B46 OC 73 76 
5849.00 


9D00 


9D00 34 10 
9202 6D 84 
9D04 27 08 
9D06 AD 91 


9D08 46 84 
9D0A 30 86 
9D0C 20 F4 
9D0E 35 90 


9D10 

9D29 34 04 
9D2B 103F 
9D2D 5D 

9D2E 27 op 
©D30 85 9D10 


9D33 1F° 98 
9D35 C6 14 


9D37 103F 
9D39 30 1F 
9D3B 8D oD 


9D3D 35 84 


9D3F 34 14 
9D41 AE 01 
9D43 C6 1E 
9D45 BD 9D29 
9D48 35 94 


OD4A 34 14 
9D4C 30 01 
OD4E B6 80 


9D50 27 04 
9D52 3F 02 





BLEUCL EQU sc Bleu clair 
PARKE EQU sD 
BLEUCI EQU 8 
ORANGE EQU sF 


Bleu ciel 


*DRAPEAU 

AVECOU EQU s00 
SABCOU EQU SFF 
VIDE EQU 00 
ZLEIN EQU SFF 


Avec couleur 
Sans couleur 


#MACROS GRAPHIQUES sur 8 bits 

FOIS EQU 10T Point 

LIGN EQU 12T Ligne 

REC EQU 14T Rectangle vide 
RECF EQU 16T Rectangl plein 
ROND EQU 17T Cercle 

RONDF  EQU 18T Cercle plein 
#*MACROS GRAPHIQUES sur 16 bite 
LPOIN EQU 9 Point 

LLIGH EQU 11T Ligne 

LREC EQU 13T Rectangle vide 
LRECF EQU 15 Rectangle plein 


*XACROS DE POSITIONNEMENT 

FCUR EQU 8 Position curseur 
LFCUR EQU 7 Position curseur 
MOTI EQU 4 Pointeur motif 
MOTIR EQU 21T Point. motif rel.co 
LMOTIR EQU  22T Point.rela.long 
ABS EQU 5 Absolu 

REL EQU 6 Relatif 


#XACROS DE CONTROLE 
ENDSEQ EQU © 
ASP EQU 1 
RASP EQU  19T 
LRASP EQU  20T 


Fin de sequence 

Appel s/ programme 
Appel s/prog. rel 
Appel s/p rel.Long 


Do EQU 2 n foie la sequence 
LOOP EQU 0 Fin seq. repet 
NULTIP EQU n fois la mcro 


3 
ORG #5E00 


#Commutation des banques RAM 
BANQ STA  GA7AS 
RTS 


*Initialisation generale Sous /ASX 
INEXXA PSHS D 
LDB #RESETC Reset (pas s/BASIC 


svi2 
LDA 0 BANQUE 5 s/ BASIC 
JSR BANQ 
PULS D,PC 
PAGE 
* POINT D'ENTREE 
DEBUT PSHS A,B,X,U,Y, DP,CC 


LBSR INEXKA 

LDX #PROG1 POINTEUR 

LBSR ECRIMO TRACE LE DESSIN 
PULS A,B,X,U, Y, DP,CC, PC 


START JSR DEBUT 
STOP 
+ TABLE GRAPHIQUE ET DE VISUALISATION 
* UTGV) 
PROG1 FDB AFFICH Mode d'affichage 
FCB  3+1 Longueur 
FCB ESC, BIMA4, TER 
FDB TRACE Type de trace 
FCB 3+1 Longueur 
FCB NORMAL, ROUGE, AVECOU 
FDB FENE Fenetre 
FCB +1 Longueur 


FDB 0,0,319T, 199T 


FDB INTER Interpreteur gra 
FCB 2+1 Longueur 

FDB OBGR1 Objet pointe 

FDB 0000 FI 


OBJET GRAPHIQUE 1 
OBGR1 FCB ABS Absolu 
FCB FCUR, 100T, 100T Curseur 
FCB LIGK,115T,118T Ligne 
FCB ENDSEQ Fin objet 
ARR AR RE EEE EEE EEE EEE EE ELEEELE 
* ROUTINES UTILITAIRES * 
RARES EEE EEE RE EEE ERER EEE EELELMOOELEX 
ORG #9D00 
* ELABORE LE DESSIN POINTE PAR X 
ECRIMHO PSHS x 
AR3 TST 1X LA FIN ? 
BEQ FIX Qui 
JSR [,X++1 TRACE UN ELEMENT 


* DU DESSIN 
LDA ,X HN. D'OCTETS 
LEAX A,X NEW POINTEUR 
BRA AR3 


FIMO PULS X, PC 

* Le code de la routine extramoniteur 
* est contenu dans B 
XESSAG RXB 25T 
TRAMOS PSHS B 


Reserve 25 octets 


svi2 Appel la routine 
TSTB Teste si erreur 
BBQ AVI Pas d'erreur 


LDX #XESSAG Erreur. Le message 
* d'erreur est extrait et sauvegarde 
* dans KESSAG 

TFR B,A Yo d'erreur 

LDB #ERRHSC Routine de traite- 
+ mnt de l'erreur 


svi2 
LEAX -1,X 
BSR AFFICH Affichage du mes- 


+ sage 
Avi PULS B,PC 


* APPEL de l'interpreteur graphique 
INTER PSHS X,B 

LDX 1,x 

LDB  #MIG 

JSR TRAMON 

PULS X,B,PC 


Lenier 
* Af£ 
x tee par X 

AFFICH PSHS B,Xx 





LEAX 1,X 
AFF1 LDB ,X+ Un caractere de la 
*# chaine 

BEQ Av2 Un zero ? 

CALL PUTC Fon.Alors on affi- 
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9D54 20 F8 BRA AFF1 


On continue 


9D56 35 94 Av2 PULS X,B,PC 






























* DEFINIT UNE FENETRE DONT LES COORDOS- 
* -NEES SONT POINTEES PAR LE REGISTRE X 


9D58 34 54 FENE PSHS B,U,X 

9DSA 30 o1 LEAX 4,7x saute n.octets 
9D5C CE 2145 LDU #xL ler registre 
9DSF C6 04 LDB LO] 4 valeurs 

9D61 104AE 81 AR1 LDY :X++ Lecture coordonnees 
9D64 10AF C1 STY »U++ Ecriture as 

9D67 5A DECB Fin ? 

9D68 26 F7 BNE AR1 Non 

9D6A 35 ‘D4 PULS B,U,X,PC 


* Les parametres du trace sont pointes 
* per X 


9D6C 34 14 TRACE PSHS B,X 


OD6E 30 01 LEAX 1,X saute n.octets 
2D70 E6 80 LDB ,X+ Type 
©D72 F7 2140 STB  TRATYP 
9D75 B6 60 LDB ,X+ Couleur 
9D77 F7  219F STB COLOR 
OD7A E6 84 LDB ,X Drapeau de couleur 
9D7C F7 2288 STB  VITH 
9D7F C6 1C LDB  #CHOIX Routina CHOIX 
oD81 BD 9D29 JSR  TRAMON Appel extramon 
9D84 35 94 PULS X,B,PC 

2000 END 


Les macros de positionnement: 


FCUR (code $8): positionne le curseur sur le point dont 
les coordonnées, sur 8 bits, sont passées par les paramè- 
pete Ces valeurs doivent être comprises entre +127 
À noter: les valeurs négat. :s n'ont de sens que pour 

exprimer des valeurs relatives. 


Exemple: 
ETIQ FCB FCUR XX ,Y 
LFCUR (code $7): positionne lecurseursurlepointdont 
les coordonnées, sur 16bits, sont passées par les para- … 
mètres X et Y. Exemple: 
FCB LFCUR 


ETIQ 
FDB X,Y 

ABS (code $5): à partir de cette macro les coordonnées 
serontestimées en absolu sur les axes X et Y del'écranen 
fonction du mode d'affichage courant. 
Exemple: ETIQ FCB ABS 
REL (code $6): à partir de cette macro, les coordonnées 
seront estimées en relatif par rapport aux valeurs conte- 
nues dans les registres XXXXX et YYYYY. 
Exemple: ETIQ FCB REL 
MOTI (code $4): pointe sur la première adresse du motif 
de remplissage utilisé pour tracer des figures pleines. 
ADD est l'adresse du motif. Exemple: 
ETIQ FCB MOTI 

FDB ADD+8 <-1ère adresse du motif # 
MOTIR (code $15): pointe, en relatif par rapport au 
compteur de programme MIG, la première adresse du 
motif de remplissage utilisé pour tracer des figures 
pleines. Cette macro permet de créer des codes Es 
relogeables. ADD est l'adresse du motif. La position rela- 
tive du motif de remplissage est limitée à une plage de 
-128 à +127. C'est équivalent à un branchement court 
Exemple: 
ETIQ BRA ADD +8 

ORG ‘2 

FCB MOTIR 

FCB  ADD-*+7 <- Adresse de début du mobt 
A noter: l'instruction BRA, suivie de la directive ORG, est 
nécessaire pour tester, à l'assemblage, l'amplitude du 
branchement. Si vous êtes sûr de vous, ces deux ns 
peuvent être supprimées. 


LMOTIR (code$16): macro identique à MOTIR, mais ad- 
mettant un positionnement du motif de remplissage sur 
la totalité de la plage adressable par le 6809. Cette macro 
est assimilable à un branchement long. 
Exemple: 

ETIQ FCB LMOTIR 





| TECHNIQUE 


Les macros graphiques: 
POIN {code $0A): affiche le point dont les coordonnées 
sont passées par la macro. Ces coordonnées peuvent 
être exprimées en absolu ou bien en relatif, en fonction 
de la dernière macro passée: ABS pour absolu et REL 
pour relatif. Les paramètres passés par la macro ne doi- 
vent pas être extérieurs à la plage -128 , +127 pour pou- 
. voir être chargés sur un octet. À l'issue de la macro les 
registres XXXXX et YYYYY sont chargés avec les coor- 
données absolues du point. La couleur du point et le 
mode de tracé sont définis par le dernier appel de la 
routine choix de l'extramoniteur. Exemple: 
ETIQ FCB POIN 

FCB  XX,YY <- Coordonnées du point 
LPOIN (code $09): similaire à POIN, mais les coordon- 
nées du point sont exprimées sur deux octets. 
Exemple: 
ETIQ FCB LPOIN 

FDB  XXXX,YYYY <- Coordonnées du point 
LIGN (code $0C): trace une droite entre deux points. Les 
coordonnées du premier point sont contenues dans les 
registres XXXXX et YYYYY. Les coordonnées du second 
point sont passées comme paramètres de la macro. Ces 
paramètres peuvent être exprimés en absolu ou bien en 
“elatif par rapport aux valeurs courantes contenues dans 
XXXXX et YYYYY. Les paramètres passés par la macro ne 
doivent pas être extérieurs à la plage -128 , +127 pour 
pouvoir être chargés sur un octet. À l'issue de la macro 
les registres XXXXX et YYYYY sont chargés avec les 
coordonnées absolues du dernier point. 
Exemple: 
ETIQ FCB LIGN 

FCB _XX,YY <- Coordonnées du second point 
LLIGN (code $OB): analogue à LIGN, mais les coordon- 
nées du second point sont exprimées sur deux octets. 
Exemple: 
ETIQ FCB LLIGN 

À Fe XXXX,YYYY <- Coordonnées du second 


REC es TE) la macro REC trace un rectangle vide 
défini par deux points sur une de ses diagonales . Les 
coordonnées du premier point sont contenues dans les 
registres XXXXX et YYYYY. Les coordonnées du second 
point sont passées comme paramètres de la macro. Ces 
paramètres peuvent être exprimés en absolu ou bien en 
relatif par rapport aux valeurs courantes contenues dans 
XXXXX et YYYYY. Les paramètres passés par la macro ne 
doivent pas être extérieurs à la plage -128, «127 pour 
pouvoir être chargés sur un octet. À l'issue de la macro 
les registres XXXXX et YYYYY sont chargés avec les 
coordonnées absolues du dernier point. 
Exemple: 
ETIQ FCB REC 

FCB  XX,YY <- Coordonnées du second point 
LREC (code $0D): identique à REC mais les coordon- 
nées du second point sont exprimées sur deux octets. 
Exemple: 
ETIQ FCB REC 

ke XXXX,YYYY <- Coordonnées du second 


RECF ie $10} trace un rectangle plein. Les coordon- 
nées du premier point sont contenues dans les registres 
XXXXX et YYYYY. Les coordonnées du second point sont 
passées via la macro. Ces paramètres peuvent être ex- 
primés en absolu ou en relatif par rapport aux valeurs 
courantes contenues dans XXXXX et YYYYY. Les para- 
mètres passés par la macro ne doivent pas être extérieurs 
à la plage -128, +127 pour pouvoir être chargés sur un 
octet. Le motif de remplissage est spécifié par le dernier 
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appel d'une des macros: MOTI, MOTIR, LMOTIR. A l'is- 
sue de la macro les registres XXXXX et YYYYY sont char- 
gés avec les coordonnées absolues du dernier point. 
Exemple: 
ETIQ FCB RECF 

FCB  XX,YY <- Coordonnées du second point 
LRECF (code $0F): semblable à RECF, mais les coor- 
données du second point sont exprimées sur deux oc- 
tets. Exemple: 
ETIQ FCB LREC 

FDB  XXXX,YYYY <- Coordonnées du second 

point 


ROND (Code $11): trace un cercle, ou une ellipse, défini 
par son centre, son rayon sur l'axe des X et son rayon sur 
l'axe des Y. Les coordonnées du centre sont contenues 
dans les registres XXXXX et YYYYY. Les rayons de la 
figure sont passés via la m acro. Le rapport de ces deux 
valeurs détermine l'allure de la figure (si X/Y=1 la figure 
est un cercle; dans tous les autres cas la figure est une 
ellipse). Les rayons ne peuvent être exprimés qu'en abso- 
lu dans une plage comprise entre 0 et 255 ( un rayon 
négatif n'aurait aucun sens) pour pouvoir être chargés 
sur un octet. Au terme de la macro ROND, les registres 
XXXXX et YYYYY sont inchangés et déterminent toujours 
le centre de la figure. Exemple: 
ETIQ FCB 

FCB XX, YY <- Longueur des rayons 
RONDF (code $12): identique à ROND, mais trace une 
figure pleine. Le motif de remplissage est défini par le 
dernier appel d’une des macros: MOTI, MOTIR ou LMO- 
TIR. Exemple: 
ETIQ FCB RONDF 

FCB  XX,YY <- Longueur des rayons 


Les macros de contrôle: 


ASP (code $1): est une macro de branchement vers un 
sous-programme écrit également en MIG. Ce sous-pro- 
gramme doit obligatoirement être terminé par la macro 
ENDSEQ. Notez que les valeurs courantes des registres 
XXXXX et YYYYY et le statut des paramètres (relatif ou 
absolu) ne sont pas sauvegardés au retour du sous-pro- 
gramme. Cette macro est équivalente à un JSR. 
Exemple: 
ETIQ CB ASP 

FCB  OBJET2<-Adresse de branchement S/P 
RASP (code $13): semblable à ASP, mais réalise un 
branchement relatif court vers un sous-programme MIG. 
Cette macro est équivalente à un BSR. Exemple: 
ETIQ BRA OBJET2<-Adresse de branchement S/P 

ORG ‘-2 

FCB RASP 

FCB OBJET2-*-1 
A noter: l'instruction BRA suivie de la directive ORG est 
nécessaire pour tester, à l'assemblage, l'amplitude du 
branchement. Si vous ” sûr de vous, ces deux lignes 
peuvent être supprimée 
LRASP (code $14): cenbiaé à RASP, mais réalise un 
branchement relatif long vers un sous-programme MIG. 
Cette macro est équivalente à un LBSR. Exemple: 
ETIQ FCB 

FDB  OBJET2-*-2 
DO {code $2): répète N fois la séquence MIG qui suit 
cette macro, jusqu'à la macro LOOP associée. Le nom- 
bre A répétitions est passé comme paramètre de la ma- 
cro DO. 
LOOP (code $0): macro associée à DO marquant la fin de 
la séquence à répéter n fois. Exemple: 
ETIQ FCB DO,5Répète 5 fois la séquence SEQUEN- 
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Ci UNI 








FCS LOOP Fin de séquence 
MULTIP (code $3): multiplie les appels de la macro qui 
suit immédiatement. Le nombre d'appels est passé 
comme paramètre de la macro MULTIP. Les paramètres 
de la macro appelée sont écrits à la suite l'un de l’autre en 
ordre croissant. Exemple: 
ETIQ FCB MULTIP,4 Appel 4 fois POIN 

FCB  POIN,X1,Y1,X2,Y2,X3,Y3,X4,Y4 
ENDSEQ (code $0): marque la fin d'une séquence prin- 
cipale ou la fin d'un sous-programme. 
Exemple: ETIQ FCB ENDSEQ 


APPLICATIONS 


Pour étayer ce que nous venons de voir, nous vous pro- 
posons deux programmes relativement simples mais qui 
devraient vous aider à utiliser les macros graphiques 
dans vos oeuvres. Ces applications utilisent la table d'é- 
res et les routines utilitaires définies au début de cet 
article. 

1 - Les pointillés: ce programme consiste à tracer une 
ligne de 30 pointillés en utilisant les macros de répéti- 
tions DO et LOOP. Les initialisations du mode d'affi- 
chage, du type de tracé, et de la fenêtre sont définis par la 
table graphique et de visualisation. Remarquez que l'ap- 
pel de l'interpréteur graphique MIG (INTER) est une ma- 
cro de TGV. 


2 nn is sois ie 
IG POINTILLES" 
RS ob el LD 
POINT D'ENT 
9E2D 34 7F DEBU 'SHS A,B,X,U,Y, DP,CC 
9E2F 17 FFED INEXMA 
9E32 88 9B3E LDX #PROG1 POINTEUR 
9E35 17 3EC8 LBESR ECRIMO TRACE LE DESSIN 
9838 35 FF PULS A,B,X,U, Y, DP, CC, PC 
9B3A BD 9E2D START JSR DEBUT 
9E3D 3F 
* TABLE PASS DE VISUALISATION 
9E3E DD4C PROG1 FDB Arricu Mode d'affichage 
9540 04 FCB +1 Longueur 
9E41 1B 59 00 FCB FC: BIUA TER 
9B44 DD6F FDB TRACE Type de trace 
0546 04 FCB 3+1 Longueur 
9547 00 02 00 FCB pour VERT, AVECOU 
9B4A DD5B FDB Fenetre 
9B4C 09 FCB Era Longueur 
9E4D 0000 0000 FDB 0,0,310T, 199T 
9E51 013F 00C7 
0E55 DD41 FDB re Fssiaur gra 
9E57 03 FCB 2+ 
9ES8 9ESC FDB Er IE obje® oies 
* Pontilles 
9ESA 0000 FDB 0000 FIN 
*OBJET nr Lxpés 1 € POINTILLES) 
PTILL FCB Absolu 
9ESD 08 32 14 FCB Un, 50T, M. ob 2 
9860 06 FCB  REL Rela 
9861 02 18 FCB  DO,30T 
9863 0C 05 00 FCB LIGN,ST, 0 un Trait 
9866 08 05 00 FCB Ed ST,0 un Blanc 
9869 00 FCB 
9E6A 00 FCB ENDSEQ 
LS dE 
XIG "DES POINTILLES" 
Recent eee ete 
* le 4 bn 
SB11 34 7F DEB! A,B,X,U,Y,DP,CC 
SE13 17 FFBE pis INEXMA 
5B16 8E 5SE24 LDX #PROG1 POINTEUR 
5B19 17 3EE4 LBSR ECRIMO TRACE LE DESSIN 
SB1C 35 FF PULS A,B,X,U,Y,DP,CC, PC 
SE1E BD SE11 START JSR DEBUT 
SE21 BD BO00 
* TABLE eng de ET DE VISUALISATION 
* 
5E24 9D44A PROG1 FDB Éreice Mode ee (Ars ieege 
5E26 04 FCB 3+1 Lo: 
SE27 1B 7E 00 FCB ESC, BIMA4, TER 
SE2A 9D6C FDE sus Type mi drsos 
SE2C 04 FCB ongue 
SE2D 00 02 00 FCB NL, ét, ÉvECOU 
5E30 9D58 FDB Fenetre 
5832 09 FCB Longueur 
5E33 0000 0000 FDB “l + 319T, 199T 
5E37 013F 00C7 
SE3B OD3F FDB rar cd Interpreteur gra 
FCB Longueur 
SE3E 5842 FDB AHÉR Objet pointe: 
* Pointilles 
5E40 0000 FDB 0000 FIN 


*OBJET GRAPHIQUE 1 (POINTILLES) 


7. 


5E42 05 PTILL FCB ABS Absolu 

5543 08 32 14 FCB FCUR, 50T,20T Curseur 
5E46 06 FCB REL Relatif 

SE47 02 15 FCB DO,30T 30 fois 

5E49 0C 05 00 FCB LIGN,5T,OT un Trait 
SB4C 08 05 09 FCB FCUR,ST,OT un Blanc"sec" 
SE4F 00 FCB LOOP 

5850 00 FCB ENDSEQ Fin objet 


2 - Les hachurés: cette application expose comment on 
peut utiliser certains objets graphiques en mixant les 
macros TGV et MIG. 

L'objet 1 élabore un ue défini en absolu. 

L'objet 2 trace une ligne oblique dont le point de départ 
est spécifié en absolu et le point d'arrivée exprimé en 
relatif par rapport au premier. En modifiant les coordon- 
nées du point de départ on obtient une translation de 
cette droite. Ces modifications sont effectuées par le 
sous-programme HACHU. Cette technique de program- 
mation permet de tracer une série (85 dans notre cas) de 
droites obliques et parallèles (les hachures!). 
L'objet 3 trace une série de cercles. Deux cercles concen- 
triques vides en utilisant la macro MULTIP paramétrée à 
2. Puis deux cercles, remplis par des motifs différents, en 
utilisant un sous-programme MIG. 

MACHINES TO: 


RIRE AR OO OR RE EEE EEE EEEE 

X1IG " UN CADRE HACHURE" * 
ARR RERO OO ELA TOR ELLE 
* POINT D'ENTRBE 


9E2D 34 7F DEBUT PSHS A,B,X,U,Y,DP,CC 
9E2F 17 FFED LESR INEXMA 
9832 8B  OB61 LDX #PROG1 Poniteur 
9835 17 3BC8 LESR ECRIMO Trace le dessin 
9E38 6D 08 BSR HACHU  Hachures 
9E3A 8E 9585 LDX  #PROG2 Pointeur 
9E3D BD DDOO JSR ECRIMO Trace le deësin 
9E40 35 FF PULS A,B,X,U,Y,DP,CC, PC 
* HACHURES 
9E42 34 34 HACHU PSHS X,Y,B 
0844 86 55 LDA #85T Hombre de hachure 
0E46 8B 9B06 AR2 LDX #OBJ2 Objet MIG 
9849 C6 1H LDB  #XIG 
9E4B 17 EDB LBSR  TRAMON 
9B4B 10BE 9E06 LDY  OBJ2+2 (Modification d'un 
9E52 31 24 LEAY  4,Y {parametre de l' 
9854 10BF 9E08 STY  OBJ2+2 (objet MIG 
9E58 44 DECA Decompte des bachu 
9E59 26 EB BHE AR2 
9ESB 35 B4 PULS  X,Y,B,PC 
9ESD BD O9E2D START JSR DEBUT 
2860 3F svl 
* TABLES GRAPHIQUES BT DE VISUALISATION 
* L TGV] 
9861 DD4C PROG1 FDB AFFICH Mode d'affichage 
9863 04 FCB 3+1 Longueur 
9864 1B 59 00 FCB ESC, BIMA4,TER 
90H67 DD6F FDB TRACE Type de trace 
9B69 04 FCB  3+1 Longueur 
9864 00 02 00 FCB NORMAL, VERT, AVECOU 
9E6D DDSB FDB FENE Fenetre 
9E6F 09 FCB  8+1 Longueur 
9E70 003C 0030 FDB  60T,48T,260T, 1517 
9E74 0104 0097 
9E78 DD41 FDB INTER Interpreteur gra 
9B7A 03 FCB  2+#1 Longueur 
9E7B 9E8C FDB  OBJ1 
9E7D DD6F FDB TRACE Type de trace 
9E7F 04 FCB 3+1 Longueur 
9880 00 01 00 FCB NORMAL, ROUGE, AVECOU 
9E83 0000 FDB 0000 FIN 
*PROG2 
9E85 DD41 PROG2 FDB INTER  Interpreteur gra 
9887 03 FCB 2+1 Longueur 
9E88 9EA3 FDB  OBJ3 
9B8A 0000 FDB 0000 FIN 
*OBJET1 (RECTANGLE) 
98ec 05 OBJi FCB Absolu 
9E8D 08 3C 32 FCB  FCUR,60T,50T Posi.Curseur 
9890 OD FCB LREC Rectangle 
9891 0104 6096 FDB  260T,150T 
9895 00 FCB ENDSEQ Fin 
+OBJET2 ( HACHURES) 
9896 05 OBJ2 FCB ABS Absolu 
9897 07 FCB LFCUR Curseur 
9898 0000 0096 FDB  OT,150T 
9E0C 06 FCB REL Relatif 
989D 0B FCB  LLIGN Ligne “long " 
9B9E 0041 FFOC FDB  65T,-100T 
9EA2 00 FCB ENDSEQ Fin 
* OBJETS ( LES CERCLES) 
9EA3 05 OBJ3 FCB ABS Absolu 
DEA4 07 FCB LFCUR Curseur 
9BAS 0040 0064 FDB 1607, 100T 
9BA9 03 02 FCB XULTIP,2 Appels multiples 
9BAB 11 14 14 OA FCB ROND, 20T, 20T, 10T, 10T 
9EAF OA 
9EBO 06 FCB REL relatif 
9EB1 08 CE 00 FCB  FCUR,-50T,0 Depla. refr 
9EB4 04 FCB  MOTI 
9BBS 9EDO FDB MOTIF1+8 Motif 1 
QEB7 20 09 BRA  SOBJ Test branchement 
9EB7 ORG +-2 
9EB7 13 OA FCB  RASP,SOBJ-*-1 S/P 
9EBO 08 64 00 FCB FCUR,100T,0 Depla. refr 
9EBC 04 FCB  MOTI 
9EBD 9ED8 FDB  MOTIF2+8 Motif 2 
9BBF 20 O1 BRA  SOBJ Test branchement 
9EBF ORG +-2 
9EBF 13 02 FCB RASP,SOBJ-#-1 S/P 
9EC1 00 FCB  ENDSEQ 
* Sous Programme IG 
9BC2 05 SOBJ FCB ABS ‘ Absolu 
OBC3 12 14 14 FCB RONDF,20T,20T Cercle plein 


TECHNIQUE 


9EC6 06 FCB REL relafif 
9EC7 00 FCB ESDSEQ 
+ MOTIFS de remplissage 
9ECS S5AA S5AA MTIF1 FDB S55AA, 555AA, S55AA, S55AA 
9ECC S5AA 55AA 
9EDO C3C3 C3C3 MOTIF2 FDB #C3C3, SC3C3, SC3C3, SC3C3 


9ED4 C3C3 C3C3 


MACHINES MO6: 


RO EEE OO EEE EEE ETEEE 
* KIG ” UN CADRE HACHURE" + 
RO OO EE EEE EEE EEE MOOEEEX 
* POINT D'ENTREE 


SE11 34 7F DEBUT PSHS A,B,X,U,Y, DP,CC 
INEXMA 


SE13 17 FFEE LBSR 

5E16 8E 5847 LDX #PROG1 Poniteur 

SB19 17 3EE4 LESR ECRIMO Trace le dessin 
SE1C 8D 08 BSR HACHU Hachures 

SE1E 8E SE6B LDX #PROG2 Pointeur 

SE21 BD 9D00 JSR ECRIMO Trace le dessin 
5E24 35 FF A,B,X,U,Y,DP,CC, PC 


PULS 
* HACHURES 
5826 34 34 


HACHU PSHS X,Y,B 


5E28 86 55 LDA #85T Hombre de hachure 
SE2A 8E SE7C AR2 LDX #0BJ2 Objet MIG 
5E2D C6 15 LDB  #XIG 
SE2F 17  3EF7 LESR  TRANON 
5832 10BE 5875 LDY  OBJ2+2 (Modification d'un 
5836 31° 24 LEAY  4,Y (parametre de l' 
5838 10BF 5E7E STY  OBJ2+2 (objet MIG 
SE3C 44 DECA Decompte des hachu 
5E3D 26 BB BNE AR2 
SES3F 35 B4 PULS  X,Y,B, PC 
5841 BD  5E11 START JSR  DEBUT 
5844 BD B000 STOP 
+ TABLES GRAPHIQUES ET DE VISUALISATION 
* CTGVI 
5B47 OD4A PROG1 FDB  AFFICH Mode d'affichage 
SB49 04 FCB  3+1 Longueur 
SB4A 1B 7E 00 FCB ESC, BIMA4,TER 
SB4D OD6C FDB TRACE Type de trace 
SB4F 04 FCB  3+1 Longueur 
5ES0 00 02 00 FCB  NORKAL, VERT, AVECOU 
SES3 9D58 FDB FENE Fenetre 
5ES5 09 FCB  8+1 Longueur 
5ES6°003C 0030 FDB  60T,48T,260T, 151T 
SESA 0104 0007 
SBSE QD3F FDB INTER  Interpreteur gra 
5860 03 FCB  2+#1 Longueur 
SB61 5872 FDB  OBJ1 
5863 OD6C FDB TRACE Type de trace 
5265 04 FCB  3+1 ongueur 
5B66 00 01 00 FCB NORMAL, ROUGE, AVECOU 
5B69 0000 FDB 0000 FIN 
+PROG2 
SB6B 9D3F PROG2 FDB INTER Interpreteur gra 
SB6D 03 FCB  2+1 Longueur 
SB6E 5E89 FDB  OBJ3 
570 0000 FDB 0000 FIN 
*OBJET1 CRECTANGLE) 
5872 05 OBJ1 FCB ABS Absolu 
5873 08 3C 32 FCB  FCUR,60T,50T Posi.Curseur 
5876 0D FCB  LREC Rectangle 
5877 0104 0096 FDB  260T,150T 
5E7B 00 FCB  ENDSEQ Fin 
*OBJET2 ( HACHURES) 
SE7C 05 OBJ2 FCB ABS Absolu 
SE7D 07 FCB LFCUR Curseur 
SE7E 0000 0096 FDB  OT,150T 
SB82 06 FCB  REL Relat1f 
5883 0B FCB LLIGN Ligne "long 
SE84 0041 FFOC FDB  6ST,-100T 
5888 00 FCB  ENDSEQ Fin 
+ OBJETS ( LES CERCLES) 
5E89 05 OBJ3 FCE ABS Absolu 
SB8A 07 FCB LFCUR Curseur 
SE8B 0040 0064 FDB 1607, 100T 
SB8F 03 02 FCB MULTIP,2 Appels multiples 
SE91 11 14 14 OA FCB ROND, 20T,20T, 10T, 10T 
5895 OA 
5E96 06 FCB  REL relatif 
5B97 08 CE 00 FCB  FCUR,-50T,0 Depla. refr 
SE9A 04 FCB MOTI 
SB9B 5EB6 FDB MOTIF1+8 Motif 1 
SE9D 20 00 BRA 50 Test branchement 
SB9D ORG +-2 
SE9D 13 OA FCB RASP,SOBJ-#-1 S/P 
SE9F 08 64 00 FCB FCUR, 100T,0 Depla. refr 
SEA2 04 FCB  MOTI 
SBA3 SEBE FDB MOTIF2+8 Motif 2 
SEAS 20 O1 BRA SOI Test branchement 
SEAS ORG +-2 
SBAS 13 02 FCB RASP,SOBJ-#-1 S/P 
SBA7 00 FCB ENDSEQ 
# Sous Programme X1IG 
SBA8 05 SOBJ FCB ABS Absolu 
SEA9 12 14 14 FCB RONDF,20T,20T Cercle plein 
SEAC 06 FCB REL relafif 
SEAD 00 FCB ENDSEQ 
+ MOTIFS de remplissage 
SEAE 55AA 55AA MOTIF. FDB S55AA, S55AA, SSSAA, S55AA 


SEB2 S5AA 55AA 
SEB6 C3C3 C3C3 
SBBA C3C3 C3C3 


MOTIF2 FDB sC3C3, SC3C3, SC3C3, SC3C3 


Codage et décodage d'images écran 

Pour conclure avec lès possibilités graphiques de l'ex- 
tramoniteur, nous vous proposons la routine CODE: 
point d'entrée ($45) pour MO6-TOB et TO9+. Cette rou- 
tine permet le codage et décodage d'une zone de l'écran. 
Au codage la surface de l'écran est reconnue par ses 
coins supérieur gauche et inférieur droit. Au décodage 
seul le coin supérieur gauche a besoin d'être précisé. Les 
limites de surface sont estimées en coordonnées carac- 
tères, soit au maximun une résolution de 25x80. Les 
registres XOCOD ($61D6 sur TO et $21D6 sur MO6) et 
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YOCOD ($61D7 sur TO et $21D7 sur MO6) définissent le 
coin supérieur gauche, tandis que les registres X1COD 
($61D8 sur TO et $21D8 sur MO6) et Y1COD ($61D9 sur 
TO et $21D9 sur MO6) spécifient le coin inférieur droit. 
Les actions de codage ou décodage sont différenciées 
par le registre PUTFLG ($6249 sur TO et $2249 ob | 
Si PUTFLG = 00, l'action de codage est active. Si 
PUTFLG =$FF, c'est l'action de décodage qui est autori- 
sée. Le registre DEBZON ($616B sur TO et $216B sur 
MO6) désigne la zone mémoire de réception des codes 
ou de source dans le cas d'un décodage. Le drapeau 
WITH ($6288 sur TO et $2288 sur MO6) indique si le plan 
couleur doit être inclus dans le codage ou décodage. 
WITH=00 -> codage ou décodage avec couleur. 
WITH=$FF -> sans couleur. Le registre PASSCD ($61DB 
sur TO et $21DB sur MO6) permet de faire un essai de 
codage avant d'écrire réellement les codes en mémoire. 
En effet, si la zone réservée au stockage est trop petite, il 
y a risque d'écrasement d'autres codes binaires. Pour 
cela on fait un essai avec PASSCD positionné à 00. Au 
retour de l'opération de codage le registre LSTBYT 
($61DC sur TO et $21DC sur MO6) est chargé avec l'a- 
dresse du premier octet qui serait libre si les codes 
avaient été rangés en mémoire. || suffit alors de comparer 
la valeur de LSTBYT avec la fin de zone allouée. Si 
PASSCD est positionné à $FF, l'opération de codage est 
réalisée et les codes rangés en mémoire. 

Au retour de CODE, LSTBYT est chargé avec l'adresse 
du premier octet libre. Le troisième octet de la zone de 
stockage contient le numéro de la banque. L'extramoni- 
teur implanté sur les-machines TO9 ne reconnaît pas le 
point d'entrée standard ($45). Il faut, pour utiliser cette 
possibilité, appeler la routine implantée à l'adresse $3B35 
sur la banque 1 du slot 0. L'octet MODELE ($627B surles 
machines TO) permet de distinguer les modèles. (0 pour 
T07/70 et 1 pour TO9). 

Exemples d'utilisation de la routine CODE: 

MACHINES TO: 


Liii:::::::;:;:::1::1:;:;:1::1::11:1:::1::1111:] 
CODAGE: DBCODAGE D' IMAGES * 
ARR OO ELA TOLELEEX 
6249  PUTFLG EQU  %6249  Codage/Decodage 
61D6  XOCOD BQU  S61D6  X Coin sup/gauche 
61D8  X1COD EQU  s61D8 X Coin inf/droit 
61D7  YOCOD HQU  S61D7  Y Coin sup/gauche 
G1D9  Y1COD EQU  S861D9  Y Coin inf/droit 
616B  DEBZON EQU  %616B  Debyt de zone 
6288 VITH EQU 36288 Avec/sans couleur 
61DB  PASSCD EQU  S61DB  Virtuel/reel 
61DC  LSTBYT EQU  S61DC 1er octet libre 
627B MODEL EQU 5627B Modele 
3B35  CODTOO EQU S#3B35 Point d'entree 
ECO3  COMS EQU SECO3  Commute les ROM 
0045 CODE EQU  69T 
*DRAPEAU 
0000  AVECOU EQU  s00 Avec couleur 
OOFF  SANCOU EQU FF Sans couleur 
0000 VIRTU EQU 500 Codage virtuel 
OOFF RÉEL EQU SFF Codage real 
0000  CODA  EQU 500 Codage 
OOFF DECO EQU SFF Decodage 
* POINT D'ENTRSE 
2E2D 34 7F DEBUT PSHS  A,B,X,U, Y, DP,CC 
2E2F 17 FFED LESR  INEXXA 
2E32 8E 9B3E LDX  #PROG1 POINTEUR 
2835 17 3EC8 LBSR ECRINO TRACE LE DESSIN 
838 35 FF PULS A,B,X,U,Y, DP,CC, PC 
E3A BD ©E2D START JSR  DEBUT 
?E3D 3F svi 
+ TABLE GRAPHIQUE ET DE VISUALISATION 
* CTGVI 
?B3E DD4C PROG1 FDB  AFFICH Mode d'affichage 
?E40 04 FCB  3+1 Longueur 
1841 1B 59 00 FCB ESC, BIMA4,TER 
144 DD6F FDB TRACE Type de trace 
1E46 04 FCB  3+1 Longueur 
847 00 01 00 FCB NORMAL, ROUGE, AVECOU 
'E4A DDSB FDB FENE Fenetre 
»B4C 09 FCB  6+1 Longueur 
*54D 0000 0000 FDB  0,0,319T, 190T 
151 013F 00C7 
‘E55 DD41 FDB INTER Interpreteur gra 
1857 03 FCB 241 Longueur 
*E58 9E76 FDB OBJA Objet pointe 
* CODAGE 
‘ESA 9E6F FDB  CODZON Codage/decodage 
ESC 0B FCB 1+10T Longueur 
E5D B000 BFFF FDB  SB000,SEFFF 
B61 15 01 1C 06 FCB  21T,1T,28T,6T, AVECOU, CODA 
865 00 00 
+ DECODAGE 
4867 9E8F FDB  CODZON Codage/decodage 
2869 0B FCB 1#10T Longueur 
©B6A B000 BFFF FDB  SB000,SBFFF 
9B6É 05 OC 1C 05 FCB OST, 12T,28T,ST, AVECOU, DECO 
9872 00 FF 
9874 0000 FDB 0000 FIN 


*OBJET GRAPHIQUE 1 
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MACHINES MO6: 





























9876 05 OBJA FCB ABS Absolu SESA 0000 FDB 0000 FIN 
9877 07 FCB  LFCUR Curseur 
9E78 00C8 001E FDB  200T,30T XOBJET GRAPHIQUE 1 
9E7C 04 FCB  MOTI SESC 05 OBJA FCB ABS Absolu 
9E7D 9E8F FDB  MOTIF1+8 Adresse du motif 5ESD 07 FCB LFCUR Curseur 
9B7F 03 02 FCB XULTIP,2 AAKAXELELELEEELEEEREREEELELELÉEELEEERALE SESE O00C8 O001E FDB 200T,30T 
9881 12 OA 14 14 FCB  RONDF,10,20,20,10 5 CODAGE: DECODAGE D’ IMAGES * 5B62 04 FCB  NMOTI 
6 Le RARE AO OO OO EE A MD EEE 5863 née Lo rs Adresse du motif 
0 FCB  ENDSEQ Fin objet s: =/Decoin 5B65 03 ; 
Pine LE Sons sin x Cote RER 5E67 12 OA 14 14 FCB  RONDF, 10,20,20,10 
9E67 55 AA 55 AA MOTIFL FCB 355,844, 555, SAA 21D8  X1COD EQU  S21D8  X Coin inf/droit SB6B OA 
9B8B 55 AA 55 AA FCB 355, SAA, 555, SAA 21D7  YOCOD EQU S21D7 Y Coin sup/gauche 5B6C 00 FCB  ENDSEQ Fin objet 
21D9  Y1COD EQU  S21D9  Y Coin inf/droit 
+ CODE OU DECODE UNE ZONE 216B  DEBZON EQU 32168 Debut de zone SB6D 55 AA 55 AA NOTIFI FCB  355,SAA,355,SAA 
9367 34 16 CODZON PSHS X,D 2288 VITH  EQU 32288 Avec/sans couleur 5B71 55 AA 55 AA FCB  355,SAA,355,SAA 
9891 30 01 LEAX 1,X Saute l'octet long 21DB  PASSCD EQU  S21DB  Virtuel/reel 
9E93 EC 81 LDD ,X+#+ Debut de zone 21DC  LSTBYT EQU  S21DC ler octet libre # CODE OU DECODE UNE ZONE 
9895 FD  616B STD  DEBZON 0045 CODE EQU  69T 5E75 34 16 CODZON PSHS  X,D 
9E9% EC 81 LDD ,X++ Fin de zone *DRAPEAU 5877 30 01 LEAX 1,X Saute l'octet long 
9B9A FD  616E STD FISZON 0000 AVECOU EQU 00 Avec couleur 5879 EC 81 LDD 1 X++ Debut de zone 
9E9D EC 81 LDD :X++ Coordonnees sup 00FF SABCOU EQU SFF Sans couleur 5B7B FD  216B STD DEBZON 
9B9F FD 61D6 STD XocoD 0000 VIRTU EQU 500 Codage virtuel SE7E EC 681 LDD ,X++ Fin de zone 
9EA2 EC 81 LDD ,X+##  Coordonnees inf 00FF  REEL EQU  SFF Codage reel 5B80 FD 2168 STD  FISZON 
OEA4 FD  61D8 STD  X1COD 0000  CODA EQU 00 Codage 5883 EC 81 LDD ,X+#+  Coordonnees sup 
DEA? 20:80 D GARE À Couleur/avec: sans 00FF DECO EQU SFF Decodage ses FD 21D6 STD  XOCOD 
9BA9 F7 6288 STB  VITH 5888 EC 81 LDD ,X+#+  Coordonnees inf 
OEAC E6 84 D RE Codage/decodage + POINT D'ENTREE 5B8A FD  21D6 STD  X1COD 
OBAE F7 6249 STB  PUTFLG SE11 34 7F DEBUT PSHS  A,B,X,U,Y,DP,CC SESD E6 80 LDB  ,X+ Couleur/avec: sans 
SEB1 26 14 BNE  AV4 Codage ? Non 5813 17 FFE LBSR INEXU SBSF F7 2288 STB  VITH 
0EB3 F7  61DB STB  PASSCD Oui.Alors force SB16 8E  SE24 LDX  #PROG1 POINTEUR SE92 E6 64 LDB  ,X Codage/decodage 
* le mode virtuel 5E19 17  3BH4 LBSR ECRIMO TRACE LE D 5B94 F7 2249 STB  PUTFLG 
9EB6 BD 9BCC JSR  CODTON Routine TO SB1C 35 FF PULS  A,B,X,U,Y,DP,CC, PC 5E97 26 14 BE  AV4 Codage ? Hon 
9EB9 FC 61DC LDD  LSTBYT On teste si la SE1E BD S5E11 START JSR DEBUT 5890 F7  21DB STB  PASSCD Oui.Alors force 
* zone proje est suffisante 5821 BD B000 STOP * le mode virtuel 
9EBC 1083 616E cxPD ZON # TABLE GRAPHIQUE ET DE VISUALISATION SE9C BD  SEB2 JSR  CODTOX Routine MD6 
9ECO 22 08 BHI  CIP Codage impossible PR C'TGVI SE9F FC Z21DC LDD  LSTBYT On teste si la 
| 9EC2 C6 FF LDB  #sFF Codage possible. SE24 OD4A PROG1 FDB  AFFICH Mode d'affichage * zone projetee est suffisante 
| * On force le mode reel 5E26 04 FCB  3+1 Longueur SEA2 10B3 216E CXPD  FINZON 
$ 9EC4 F7 61DB STB  PASSCD 5827 1B 7C 00 FCB ESC, MOD40, TER 5EA6 22 08 BHI  CIP Codage impossible 
l 9EC7 BD O9ECC AV4 JSR  CODTON Routine Tous mod SE2A QD6C FDB TRACE Type de trace SEA8 C6 FF LDB  4#SFF Codage possible. 
#AV4 JSR  CTO80+ Routine TO8/TO9+ SE2C 04 FCB  3+1 Longueur * On force le mode reel 
9BCA 35 96 CIP  PULS .X,D,PC SE2D 00 01 00 FCB  RORMAL, ROUGE, AVECOU SEAA F7 21DB STB  PASSCD 
SE30 9D58 FDB FEYE Fenetre SEAD BD SEB2 AV4 JSR  CODTOX Routine M6 
| * APPEL DE "CODE" POUR LES MODELES TO 5E32 09 FCB  8+1 Longueur SEBO 35 96 CIP  PULS  X,D,PC 
9ECC 34 7E CODTOX PSHS DP,D,X,U,Y P.tous modeles 5E33 0000 0000 FDB  0,0,319T, 1907 Re pee 
DB DEL Test le modele 5837 013F 00C7 + APPEL DE "CODE" POUR 
Di Ci 01 ces À Un TO7 ou TO9 SE3B ODSF FDB INTER  Interpreteur gra SEB2 34 04 CODTOM PSHS BE P.tous model 
9ED3 22 OF BHI NEV Xon SESD 03 FCB 241 Longueur SEB4 C6 45 LDB  #CODE Code "classique 
SE3E 5ESC FDB OBJA Objet pointe SEB6 BD 9D29 JSR  TRAMON  extramoniteur 
9EDS 86 61 LDA  #s61 Oui. Page0 d'extr * CODAGE SEE9 35 64 PULS BFC 
9BD7 1F 8B TFR  A,DP 5840 5875 FDB  CODZON Codage/decodage 
| 5842 0B FCB 1+10T Longueur 
E 9BD9 CE 3B35 LDU  #CODTO9 CODE TO9/TO7 5843 8000 8FFF FDB 38000, S8FFF 
| 9EDC 86 O1 LDA  #s01 Slot0 banquel 5847 15 01 1C 06 FCB  Z21T,1T,28T,6T, AVECOU, CODA 
9EDE BD ECO3 JSR coxs ROM 5B4B 00 00 
| 9BE1 35 FE ARS  PULS DP,D,X, Y,U, PC + DECODAGE 
| OBE3 C6 45 NEV  LDB  #CODE Code "classiqu SB4D 5E75 FDB  CODZON Codage/decodage 
9BES BD DD29 JSR  TRANON  extramoniteur SE4F 0B FCB 1+10T Longueur 
ci FRS D Se 08 6c 1€ | FcB  OST,12T.267 Prochain épisode: Les TORTUES 
OBEA 34 7E CTO89P PSHS DP,D,X,U,Y Pour TO8/T09+ 5ES4 05 0C 1C 05 FCB  OST,12T,28T,ST, AVECOU, DECO " 
OBEC 20 F5 BRA  NEV SES8 00 FF 
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_ Archibald 


derrière 


En vue de définir les 
dimensions d’une adéquation 
entre offre et demande, TEO a 
adressé une grille d'analyse 
descriptive (assez complète et 
précise) aux producteurs de 
F4 vis importants. Celui 
d’Archibald, Jean Dourisboure, 
nous a répondu, et nous 
croyons utile de réfléchir à 
cerfaines de ses réponses. 


ans son numéro 10, TEO a déjà attiré l'atten- 
tion de ses lecteurs sur l'intérêt que présente 
- et la perplexité que fait naître - le logiciel 
“ARCHIBALD à la découverte des algo- 
rithmes”. L'audace, l'astuce, le soin, et la qualité de la 
réalisation y ont été soulignés comme il se doit, tanten ce 
qui concerne le produit informatique lui-même, qu'en ce 
qui concerne l'ensemble des documents d'accompa- 
gnement. 
Des problèmes de fond demeurent cependant, à propos 
de ce logiciel, comme à propos de beaucoup d'autres 
que nous avons à étudier. Ces problèmes portent essen- 
tiellement sur le niveau de cohérence entre les objectifs 
affichés (ou proclamés) par les auteurs et les objectifs 
implicites ou annexes que l'utilisateur découvre en fonc- 
tion de sa formation, de ses besoins, ou de ses attentes. 
Faute de cette élucidation préalable, le “client” éventuel 
se trouve dans l'impossiblité de savoir ce que tel ou tel 
programme lui propose exactement et dans quelles 
conditions intellectuelles et techniques il se trouve en 
mesure de l'aborder. 
Question 1.B : SUJET - MATIERE 
On répond “intelligence artificielle” c'est-à-dire par un 
grand mot, alors qu'il ne s'agit en l'espèce que de la prise 
en compte limitée d'un domaine mineur : celui des pro- 
cédures algorithmiques définies au sens étroit, dans une 
perspective déterministe déjà bien vieillie, qui n'ouvre en 
rien vers les styles nouveaux que l'I.A. commence à in- 
duire, et qui, de toute façon, ne recouvre même pas les 
règles fondamentales du MASTERMIND (celles de la 
“place” par exemple). 
Dans sa brochure, l'auteur s'explique sur ce point avec 
beaucoup d'à propos et de compétence, il est vrai, souli- 
gnant à la fois la nécessité et l'extrême difficulté de pren- 
dre en compte les aspects contextuels ou sémantiques 
de la situation. 
De même, il fait d'excellentes réserves sur la dénomina- 
tion de “système expert” tout en suggérant que son pro- 
gramme pourrait néanmoins “être qualifié d'expert ”(?). 
Les nuances sont importantes, mais pourquoi faut-il at- 
tendre le manuel, c'est-à-dire avoir fait l'acquisition du 
produit, pour les voir apparaître ? N'était-ce pas d'em- 
blée, dès l'analyse descriptive, qu'il aurait fallu en deux 
lignes décisives mettre les choses au point ? 


sa grille 


1.8: Sujet - Matière - Age - Niveau 


On répond allègrement “de 9 à 99 ans”, laissant croire 
qu'il s'agit d'un contenu aisément maîtrisable sans condi- 
tion prérequise particulière. Or, si la partie “jeu” du logi- 
ciel (notamment en 4) peut en elle-même servir de sup- 
port à quelques activités ludiques accessibles à tous, il 
n'en est pas de même de toutes les superstructures logi- 
co-graphiques, de tous les cheminements dans les cir- 
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UTILISE SEUL 


\ 


cuits de diagnostic-décision (bleus, jaunes, verts, etc.), 
de tous les fastidieux apprentissages du codage des 
“voies”. Les essais effectués avec des utilisateurs pour- 
tant astucieux se sont rapidement révélés ennuyeux et 
tellement surchargés de complications et de complexités 
qu'il faudrait être un véritable fanatique des graphes dy- 
namiques pour consentir à aller jusqu'au bout. 

LB : Sujet - Matière 

“mieux comprendre comment l'homme raisonne” Est-il 
possible de prendre cette réponse au sérieux ? Certes 
des formes de “calcul” apparaissent dans le raisonne- 
ment humain élaboré. Elles ont été décelées depuis l'An- 
tiquité, mais on aperçoit de mieux en mieux, de nos jours, 
qu'elles n'ont de sens qu'en se cristallisant comme 
noyaux d'inférences dans un univers de valeurs, de moti- 
vations, de polarisations, d'intuitions, d'hypothèses, 
d'enveloppements généralisateurs ou au contraire de 
particularisations exemplificatrices. 

Certes, dans un micromonde aussi simplifié que celui 
d'Archibald, on peut à la rigueur, laisser jouer des méca- 
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Un modèle pédagogique qui grâce à | 





‘indépendance et à l'interférence des 


2 composantes « programme » et «ouvrage » permet à chacun, selon sa sensibi- 
lité et ses besoins, de trouver l'éclairage qui lui convient! 
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nismes. Mais quel intérêt cela présente-t-il ? Même pas 
celui d'un entraînement mental car l'explicitation com- 
plète et la figuration imprimée des démarches menacent 
le cerveau dans des conditions de fonctionnement quine 
correspondent en rien à la réalité. Où situer, parexemple, 
cette “mémoire interne” des coups joués (à la fois si peu 
fiable et si plastiquement créative) qui fait dynamique du 
jeu et que les écritures externes trop développées met- 
tent en sommeil ? Imagine-t-on demain le joueur de be- 
lote du “café du Commerce” déployant sous les verres 
d'anisette ses feuillets d'algorithmes et ses blocs-notes 
colorés ? 


Les algorithmes 


C'est dire que le véritable objectif pédagogique du logi- 
ciel n'apparaît pas clairement dans la réponse donnée au 
questionnaire. |! n'apparaît pas non plus dans le sous-ti- 
tre (“Comprendre l'intelligence d'un ordinateur”). C'est 
dans le titre qu'il se donne comme une “découverte” des 
algorithmes. Et là, nous sommes pleinement d'accord. 
C'est à travers le processus de leur élaboration active par 
le sujet que les algorithmes sont, en effet, formateurs et 
non pas à travers leur exécution ou leur mémorisation 
prématurée. Jouer, jouer, jouer, réussir, échouer, rejouer 
jusqu'à pressentir et inventer peu à peu structures et 
démarches - tout en développant par l'exercice un sys- 
tème de présentation interne progressivement enrichi de 
symbolisations externes. De ce point de vue, les visuali- 
sations du “mini-Archibald” nous ont paru infiniment 
plus proches de la dynamique mémorisatrice que le foi- 
sonnement arborescent des cartons. 

Cela dit, si l'objectif de l'auteur est de former à certaines 
techniques de planification (comme quelques passages 
de la brochure le laissent supposer), il doit le dire et le 
poser en réponse .B, mais il s'agit alors de tout autre 
chose que du raisonnement humain ou de la déduction 
automatique. 

1.B Question : Langue et Dialogue 

Réponse : “comprends pas...” 

Et pourtant nous nous trouvons ici à un carrefour impor- 
tant. En fait, Archibald et l'utilisateur communiquent à 
travers un langage symbolique visuel ("vert” pour bon, 
“=" pour “de même valeur que”, etc.), langage qui sert de 
relais simulateur de l'action. Seul Archibald emploie, en 
outre, la langage naturel pour faire connaître à l'utilisa- 
teur les questions, les recherches, les inférences, ou les 
décisions que les algorithmes appellent. 


Langage symbolique visuel 
et langage naturel 


Mais l'utilisateur ne peut répondre au clavier de la même 
manière, il ne peut que marquer symboliquement des 
résultats. || n'y a donc pas dialogue ni, par voie de consé- 
quence, occasion pour l'utilisateur de s'ouvrir à ce ma- 
niement verbo-conceptuel des connecteurs logiques. 
Maniement qui, en situation d'apprentissage, permet une 
meilleure prise de conscience et une plus fine évaluation 
des comportements (réponse réussie mais jugement dé- 
fectueux, réponse manquée malgré un raisonnement 
apparemment correct, etc.). 

La question du langage interroge au fond sur le “niveau 
d'activité” d'un logiciel d'apprentissage et c'est pour- 
quoi, nous lui accordonsici une si grande importance. La 
question interpelle ainsi que la “communication bonne 
machine” et c'est précisément elle qui permet de baliser, 
dans ce qu'elle a de nouveau et de paradoxal, la direction 
qu'ouvre devant nous l'intelligence artificielle. 
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Il-C : Adaptabilité, 11I-G pour l'élève, III. F pour l'ensei- 
gnant 

À “modifications des données” , “modification du pro- 
gramme”, “variabilité des paramètres”, on répond sè- 
chement à TEO “comprend pas”. Ici, c'est nous qui ne 
comprenons plus car le point fort du logiciel, point d'une 
valeur incontestable, se situe exactement dans cette 
souplesse des paramètres et dans ces possibilités de 
transformation. Les conditions du jeu peuvent en effet 
être changées (nombre de lettres tirées, lettres répétées), 
les stratégies sont susceptibles d'alternance (Archibald, 
super, mini), les points de vue peuvent être mis en oppo- 
sition (celui du sujet et celui du programme). Des idées 
de réécriture de certaines lignes sont proposées, des 
fusions algorithmiques plus claires sont suggérées, etc. 
Les meilleures pages de la brochure développent, à juste 
titre, ce thème que pourtant les réponses au question- 
naire rejettent avec une désinvolture inattendue. 


II-H : Environnement éducatif 

Ici l'auteur daigne poser quelques “O” ou quelques “N”. 
En réalité, la brochure propose une organisation de ses- 
sions et un modèle pédagogique qui intègrent bien la 
nécessité de rendre complémentaires programme et 
manuel. Cet ensemble a le mérite d'exister. Peut-être 
nous apparaît-il trop contraignant et trop systématique, 
trop directement inspiré par le style “séminaire de forma- 
tion de cadres” qui indispose tous les éducateurs vérita- 
bles, ceux qui veulent offrir à travers des langages nou- 
veaux, liés à une informatique plus conviviale, des 
possibilités plus authentiques de recherche exploratoire, 
de créativité et de construction personnelle de la connais- 
sance. 


IV- A.B.C. Suppléments 

Fiches expérimentation, utilisation, et évaluation n'ap- 
pellent comme réponse que la sévère ponctuation d'un 
point d'interrogation. Le fait-tout à fait compréhensible - 
de ne pas les avoir prévues ne permet pas de rejeter une 
question qui se pose bel et bien, et de manière impéra- 
tive. 

Quand nous expérimentons un logiciel, nous mettons en 
place un dispositif spécifique ; quand nous voulons le 
faire utiliser en classe, nous prévoyons également un 
cadre. Enfin, les fiches d'évaluation nous paraissent in- 
dispensables. C'est sur elles que nous redéployons les 
objectifs, que nous les assortissons à des critères per- 
mettant de décider si les objectifs sont atteints ou non, et 
à quel degré ils le sont. Sans ces précautions méthodo- 
logiques minimales, il nous paraît peu recevable de par- 
ler de “formation” et encore moins d’’auto-formation”. 


Archibald ouvre le débat 


Il faut mettre à l'actif d'une production tous les efforts 
qu'il est nécessaire de mobiliser pour la critique. De ce 
point de vue, nous remercions Archibald de nous offrir 
l'occasion d'ouvrir un tel débat. Nous regrettons seule- 
ment que notre héros soit demeuré laconique - et quel- 


que peu bêcheur - derrière sa grille. |! n'a pas vu que les 


barreaux constituaient le filtre d'un échange d'informa- 
tions cadrées, de concepts opératoires précis, de solu- 


tions techniques définies et pertinentes par rapport à des 


objectifs et à des dispositifs clairement hiérarchisés. 
Espérons que, à travers cette grille, d'autres auteurs nous 


& parleront mieux, allant même jusqu'à la modifier un peu 
pour leur plus grand bien, et pour celui de TEO. 


Armand Biancheri 
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-structurée * 
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-111,6- AIDE ET ADAPTIBILITE POUR L'ELEUE 


-Existe-t'il des modules d'aide (O/N) » O 
-Existe-t'il une documentation (intégée ou autre) (O/N) * O 
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Réponses "ouvertes" 
Est-il possible de choisir la langue de dialogue (O/N) * Nu 
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-existe-t'il des modules d'aide (O/N) * 
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-différents niveau de difficulté * 
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-Architecture ouverte * 


-111:G- CONTROLE DE QUALITE 
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-IV- SUPPLENENTS 


-IV 


-Iv. 


.A- fiches experinentation (0/H) 
si O voir fichier à part 


u- fiches d'utilisation en classe (0/M) 
si O voir fichier à part 


.C- fiches d'évaluation (0/H) 
si O0 voir fichier à part 


.E- Références dibliographiques 


.F- ecriture d'un slogan caractéristique 
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Outils-langues 


Bien écrire le français 
et apprendre les langues 
étrangères 


Dans la collection “Collèges et Lycées” de Nathan vient 
de sortir une série de logiciels pour l'apprentissage des 
langues et l'orthographe du français. Ces logiciels sont 
destinés au soutien de l'acquisition des connaissances 
de base. Leur conception montre une grande variété 
d'activités selon la langue ou le thème étudié. Is obligent 
l'élève à la réflexion et leur facilité d'emploi incite à un 
usage régulier et simple. 

Cette série comporte un volume pour l'allemand, deux 
volumes pour l'espagnol, cinq volumes pour l'anglais, et 
trois volumes pour l'orthographe en français. Ces logi- 
ciels se présentent sous forme de disquettes (format 5 
Sais ou 3 pouces) pour nanoréseau ou série TO8 et 
TO. 


Allemand 


On peut supposer que ce volume unique sera suivi d'au- 
tres thèmes. Pour ce volume, destiné aux classes de 
sixième et de cinquième, ce sont les nombres et l'heure 
qui sont au programme. Le premier programme, “Uhr”, 
aide à la formulation de l'heure en allemand. Il comporte 
des exemples et des exercices avec le choix d'exprimer 
l'heure de façon informelle par l'usage des 24 heures, ou 
la façon familière réduite aux 12 heures. Les exemples 
sont disponibles à tout moment. 

La deuxième activité proposée concerne la façon d'ex- 
primer les nombres en allemand. Cette partie du pro- 
gramme offrent plusieurs possibilités, notamment celles 
de remplir et de lire un chèque. Au cours des deux activi- 
tés, l'utilisateur peut obtenir un bilan et surtout adapter le 
niveau de difficulté à son propre niveau. 


Espagnol 


Deux volumes sont proposés pour l'espagnol. Ils con- 
cernent directement les classes de 4ème et 3ème. Le 
premier volume est consacré au vocabulaire. La pre- 
mière activité consiste en l'acquisition de séries de mots 
sur la nature, d'adjectifs, de métiers et d'homonymes. En 
un délai de 20 secondes, l'élève doit pointer des empla- 
cements sur les voiles d'un bateau (où sont inscrits des 
mots) avec le crayon optique et tenter de couler le ba- 
teau. La deuxième activité s'articule autour des syno- 
nymes et des contraires de quatre-vingt mots. Ces deux 
exercices servent à fixer le vocabulaire des deux pre- 
mières années d'apprentissage. Là encore, l'enseignant 
peut modifier les paramètres ou entrer ses propres don- 
nées. 

Le deuxième volume est consacré à la traduction. | com- 
porte d'abord une série de douze textes qu'il faut mémo- 
riser pour ensuite les reconstituer. Ce sont les expres- 
sions de l'univers familier espagnol qui ont été retenues. 
La deuxième activité est centrée sur la lecture et la com- 
préhension d’une série de quatre textes (l'enseignant 
peut en augmenter le nombre). Ces textes d'auteurs re- 
présentent des situations différentes mais le vocabulaire 
en est connu des élèves. 


Anglais 


L'ensemble des logiciels consacrés à l'anglais dans cette 
série “Collèges et lycées” est le plus important de la 


D _ 4 


E 


collection puisqu'il comprend cing volumes. Il s'adresse 
aux élèves de la sixième à la terminale. Pour tous les 
volumes, un éditeur permet de gérer les fichiers d'exer- 
cices pour enrichir, modifier ou supprimer certaines sé- 
quences. Les parents et les enseignants devraient être 
sensibies à cette facilité et apprécier les nombreuses 
possibilités d'adaptation pédagogiques. 


avec des activités de révision lexicale et de reconstitution 
de texte, tout cela pour amener les élèves à observer les 
textes et à commencer à penser en anglais. Un minimum 
de vocabulaire est requis pour cette première approche. 
Comme le premier, le deuxième volume couvre les ni- 
veaux des classes de sixième à la troisième, Cette fois, 
c'est la pratique de la langue qui doit être exercée avec 
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Ces facilités sont renforcées par le système de gestion l'apprentissage et l'emploi réfléchi des structures de 
des erreurs qui dresse un bilan à la fin des exercices. La base de la langue anglaise. Pour ce faire, on dispose de 
couverture de toutes les classes du secondaire assure un quatre logiciels avec des exercices sur les formes inter- 
ensemble cohérent pour tous les niveaux et on peut ima- rogatives, l'emploi des temps simples et la formulation de 
giner étendre l'usage de ces cinq volumes à tous ceux qui questions. La troisième activité de ce volume est d'ail- 
veulent apprendre l'anglais, réviser, ou simplement se leurs totalement ouverte pour renouveler les formes in- 


situer. 


terrogatives et varier les questions. Le dernier exercice 


Le premier volume est consacré à la compréhension par est conçu pour consolider et évaluer les connaissances 
la lecture et la traduction. Il comporte quatre logiciels du present perfect et du passé simple. 
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Le troisième volume est constitué de quatre logiciels 
destinés à renforcer le vocabulaire. On ytrouve ainsi des 
exercices sur la reconnaissance de mots appris, avec un 
travail sur des énoncés. Les autres activités ont pour but 
laconnaissance des synonymes et opposés, l'expression 
de l'heure et des nombres. 

Les volumes 4 et5 sont centrés sur le thème grammatical 
par un cours de grammaire sur les difficultés courantes 
de traduction en anglais. Il s'agit d'un petit logiciel de 
traduction assistée avec analyse des erreurs faites, cours 
de grammaire immédiat et dictionnaire associé. L'élève 
peut choisir son mode de progression sous le contrôle du 
programme. Les différents modules permettent l'étude 
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du groupe nominal et des phrases simples et complexes. 
Dans le dernier volume ce sont au total neuf cents 
phrases qui sont proposées. 


Ecrire sans fautes 


Trois volumes consacrés à l'orthographe du français fi- 
gurent dans cette collection. Là, il s'agit de s'exprimer 
correctement par écrit en français. Ils peuvent être utili- 
sés de la sixième à la troisième et représentent des ni- 
veaux de difficulté croissante. Pour chaque volume, ce 
sont huit logiciels qui abordent aussi bien les sons diffi- 
Ciles que les noms et les adjectifs. Les thèmes proposés 


polgnar 


et vola un bijou 
mait d’un humour fort 


et famiement Ce tueur fs. 
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tiennent compte de la fréquence des fautes commises 
par les élèves. 

Dans chaque volume les activités sont similaires, avec un 
module de gestion des résultats et un module d'explica- 
tions. La gestion des résultats de la classe permet à 
l'enseignant de vérifier le niveau par classe ou par élève. 





Deux scénarios sont proposés au choix du professeur : 
scénario d'apprentissage et de révision ou scénario de 
contrôle. Les 24 thèmes abordés permettent de créer des 
automatismes chez l'élève face à certaines règles lexi- 
cales ou grammaticales, de réviser des connaissances et 
de contrôler l’açquis. 


CEDIC NATHAN 


La Boussole 


Apprendre la boussole et savoir s'en servir, voilà l'objectif 
essentiel de ce logiciel destiné aux enfants du cours 
moyen et du collège. La présentation fait comprendre à 
l'élève que l'aiguille est attirée par une masse métallique, 
puis il découvre le pôle magnétique par une visualisation 
graphique. Les explications sur les différentes parties de 
la boussole sont ensuite données à la demande. L'enfant 
apprend l'intérêt de la loupe, et découvre la lecture de 
l’azimut par un exercice simple. || doit comprendre l'écart 
entre le nord du cadran et la direction de l'aiguille. C'est 


ensuite l'initiation à la notion d'échelle avec deux ques- 


tions sur des échelles différentes. 

A l'étape suivante, l'élève apprend à déterminer un azi- 
mut en tournant la boussole pour placer la flèche dans la 
direction indiquée, puis en tournant le cadran afin de 
placer le nord. Il doit enfin taper au clavier l'azimut indi- 
qué. 

La dernière étape de cet éducatif est un jeu qui met en 
oeuvre les connaissances acquises. Ce jeu s'inspire de la 
course d'orientation, sport encore peu pratiqué en France, 
qui consiste à parcourir un trajet à l'aide d'une boussole 
et d'une carte. En l'occurrence, le trajet est un territoire 
traversé par une rivière et parsemé d'arbres qu'il faut 
parcourir en passant par plusieurs balises. Avant le dé- 
part, une vue globale permet d'évaluer les azimuts exacts 
pour limiter le trajet. 

Trois niveaux de jeu sont proposés. Pour le dernier ni- 
veau, il est obligatoire de donner les azimuts. Chaque 
action rapporte un certain nombre de points, à condition 
de passer la rivière par les ponts. 

Une notice succincte et un complément pédagogique 
accompagnent ce logiciel dont le graphisme correspond 
bien à la boussole. La progression de l'apprentissage est 
efficace. 

Langage et Informatique 
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NOLPA 
Revue A.E.L. 


Cette revue se distingue par son support, à savoir une 
cassette contenant une série de programmes pédagogi- 
ques qui peuvent être dupliqués, utilisés et réadaptés. Le 
dossier “Elèves” du numéro 4 de la revue propose un 
programme sur les homophones avec une vingtaine de 
phrases à compléter correctement et une initiation au 
traitement de textes avec Logo. Parallèlement, on trouve 
un programme de menus pour les disquettes en Nanoré- 
seau dans le dossier “Enseignants”, mais aussi des pro- 
grammes sur les calculs de moyennes, l'étude du transis- 
tor, ou encore la visualisation de courbes paramétrables. 
Les enseignants disposent d'un appui pédagogique avec 
des idées de réalisation et matière à modification. 
Encore une fois, nous souhaitons bonne chance à cette 
initiative originale. 


Conjugaison 


Les logiciels d'apprentissage et de révision de la conju- 
gaison ne manquent pas. Certains sont même étonnants 
par leur exactitude face à certains verbes irréguliers dont 
la langue française a truffé son vocabulaire. Celui-ci se 
présente sous forme de jeu. De une à quatre personnes 
peuvent y participer. 

Au départ, 30 verbes sont proposés, dont 2 auxiliaires, 21 
verbes du fameux troisième groupe, ou encore 4 verbes 
du premier groupe à l'orthographe audacieuse. Les 
phrases construites peuvent employer 300 thèmes dis- 
tincts, 1800 sujets et 2 100 compléments. Au total, plus de 
4000 mots de vocabulaire sont disponibles. Chaque uti- 
lisateur peut choisir de travailler sur un temps particulier, 
sur tous les temps d'un mode, ou sur tous les temps d'un 
verbe. || choisit également une manière de travailler par- 
mi sept, dont l'étude, les phrases à compléter, ou encore 
l'analyse d’un verbe dans une phrase. Ce sont donc 21 
possibilités qui sont offertes. 

Le joueur doit à la fois maîtriser l'utilisation correcte du 
verbe, mais aussi son orthographe. L'expérience prouve 
que les exceptions ne manquent pas pour gêner l'écri- 
ture... Une assistance complète est assurée et le tableau 
des verbes prévus peut être étendu. 

Ce logiciel, de par sa diversité et son ampleur, est utilisa- 
ble par les élèves, les stagiaires ou toute personne dési- 
reuse de parfaire son emploi du verbe dans la phrase. 
Langage et Informatique 


Parficipe passé : 
le bon accord 


Que de souffrances provoquées par le participe passé ! 
Qui n'a jamais hésité sur une forme dont la règle échap- 
pait un instant ? Ces douloureux moments de doute ne 
devraient plus s'installer chez les hésitants lorsqu'ils 
auront fait un usage intensif de ce logiciel qui leur per- 
mettra d'acquérir les bons réflexes. En effet, à part une 
option d'étude des règles qui contrôle les connaissances, 
on peut soumettre une phrase au programme qui va alors 
poser quelques questions sur le participe passé, le 
groupe du verbe (ah ! cetroisième groupe rebelle) et une 
solution sera proposée. 

Une autre option permet à l'élève de travailler sur des 


D 4 


exercices préparés en lui faisant proposer des accords et 
cela sur cinq phrases, avec correction immédiate et attri- 
bution d'une note. S'il le désire, l'utilisateur peut sortir le 
résultat sur imprimante. Enfin, un choix du menu réalise 
la gestion des exercices avec protection par mot de 
passe pour que les élèves ne soient pas tentés par des 
coups d'oeil indiscrets. Là, l'enseignant pourra vérifier, 
créer, ou modifier des exercices et des phrases ainsi que 
les commentaires associés. 

Le logiciel est assez bien conçu. Il peut réellement être 
utilisé en auto-formation, ou en soutien, pour la décou- 
verte de ces règles complexes du participe passé. 
Langage et Informatique 


Ordinateur et sciences 
physiques au lycée 


L'intérêt des utilisations de la micro-informatique dans le 
domaine de la simulation n'est plus à dire. Il est évident 
qu'un bon programme qui sait utiliser le graphisme, doté 
des meilleures modélisations, remplace certaines expé- 
riences difficiles à monter du fait des moyens demandés 
ou du temps de réalisation. Ce logiciel très complet est 
justement une bonne illustration de ce qu'il est possible 
de proposer à des enseignants pour les aider dans leurs 
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Cours. 
Ici, c'est la physique qui est à l'honneur. On trouve ainsi 
un programme de simulation de mouvement d'un sys- 
tème de deux solides liés (barycentre), ensuite le résultat 
de la chute d'une bille et de son mouvement enregistré 
par un chronophotographe avec, soit une vitesse initiale 
nulle, soit un angle de tir fixé. Le troisième programme, 
intitulé “Modélisations”, simule la chute d'un mobile 
dans l'atmosphère, avec ou sans frottements, et les oscil- 
lations d’un pendule pesant. 

Le programme Ondes regroupe trois modules indépen- 
dants consacrés à l'étude analytique de la propagation 
des signaux. Le premier s'intéresse à la simulation de la 


langage et ugorumatique 


propagation d'un signal transversal, le deuxième à celle 
d'une onde, et le troisième à la superposition de deux 
signaux. 

Les trois derniers programmes de ce logiciel concernent 
la quantité de mouvement (l'addition vectorielle), le point 
de fonctionnement d'un circuit (pile et conducteur oh- 
mique), et l'acquisition de données et de tracés de 
courbes pour une série de fonctions à sélectionner cor- 
respondant à des usages classiques en physique. Voilà, 
tout cela pour le même produit. La réalisation est excel- 
lente, et l'usage des possibilités graphiques est judi- 
cieux. 

Langage et Informatique 
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@ VENDS 107/70 clavier mé- 
canique + moniteur mono. 
+ lep + contrôleur manette 
+ incrustation vidéo + Cube 
Basic + Speedy wonder : 
ColorPaint + livres : 3 100F. 
Tél.: 48.93.67.86 (ALFORT- 
VILLE). 


@ VENDS nouveautés sur 
QDD pour107/70 etTO8 20F 
pièce. Tél.: 29.39.3787 
(THAON). 


- © ECHANGE logiciels sur dis- 
quette 5 pouces 1/4 pour 
107/70. Recherche exten- 
sion 64K cartouche assem- 
bleur, manuel. Tél. : 44.53. 
18.22 (AUMONT). 


@ RECHERCHE correspon- 
dant pouréchanger sur TO8- 
/109 avec lecteur de dis- 
quettes 31/2 ou cassette. 
Tél.: 845219.29 (CHAMPA- 
GNOL). 


@ VENDS moniteur mono- 

chrome neuf garanti jus- 

qu'en décembre 87 + cor- 

don pour MO6, TO8, TO9 et 

109 +. Le tout : 1.000F à dé- 

battre. Tél. : 83.45.30.70 (RO- 
SIERES). 


@ VENDS TO07/70 + lep : 
clavier mécanique + mar- 
nettes de jeux + livres + 
rammes + listing + jeux : 
3.800F tél. : 42.20.23.58 (AIX- 
… EN-PROVENCE). 


me VENDS 109 moniteur mo- 

nochrome + imprimante PR 
190600 + interface jeux : 2 
manettes + logiciels 7.000F 
“jé. :33.41.60.64 (ST SAUVEUR 
LE COMIE). 


108 cherche contacts 
* pour échanges VENDS Mul- 

liplan TO8 109 lél.: 32.42 
2442 (PONT AUDEMER). 


me CHERCHE contacts sur 
… MO5 + k7. Réponse assu- 
L. rée. Nicolas CLAMARAN, 350, 
Grande-rue, 78300 CARRIE- 
…RES-SOUS-POISSY. 


© CHERCHE 2e lecteur de 
“disquettes thomson UD 
90070 (80K) Tél. : 80.73.53.85 
…. après 22h (DIJON). 





















































-24.5298.56 (TOURNES). 


RE P 
“6 VENDS 107/70 + cart. Ba- 
sic 4.0 + LEP + 4 manette + 
doc. diverse + jeux : 2000 F. 












“contrôleur jeux + 6 jeux : 4 
900F. Tél. : 34.14.60.01 (FRAN- 
 CONVILLE). 

@ VENDS MOS clavier mé- 
canique + écran couleur + 
lecteur K7 + manette de 
ux avec son contrôleur + 








VENDS 6 logiciels 100 à 
e l'unité. Tél . : 48. “it d 


) VE! D 
iteur couleur impri- 
te DMP 2000 + souris + 
k + logiciels + doc : 
e a Le tout bon 
at: 7 000F. Tél. :43.33.27.56 
RVILLIERS). 












@ VENDS 107/70 + extension 
manettes : 2 manettes + 
cartouche Basic + logiciels. 
Tél. : 30.37.3411 (ERAGNY). 


@ VENDS contrôleur de com- 
munication + câble impri- 
mante. Tél.: 48.98.03.80 
(CRETEIL). 


@ TAPE vos listings Basic sur 
MOS5 et 107. Echange jeux 
contre d'autres. Tél. : 35.28. 
34.56 (FE 
CAMP). 


@ ACHETE lecteur(s) Thom- 
son 51/4 320K, Gilles BOU- 
TEVILLE, 23, avenue du Gal 
de Gaulle - 77160 PROVINS 


@ CHERCHONS possesseurs 
de MOS5 pour divers échan- 
ges et activités en club. 

Marcel Le GOFF (Savenay) 

Tél. : 40.72.91.26. 


@ VENDS MOS5 + Lep : ex- 
tension (musique + jeu), 3 
manettes 15 logiciels 
clavier mécanique : livres 
4 Teo : crayon optique, le 
tout : 2 900 F. Laurent DIDIER 
(Villeurbanne). Tél. : 78.89. 
70.74. 




















- © CHERCHE possesseurs 


marseillais de 109 pour 
échange de programmes 
(tous originaux), trucs, etc. 
Jean-Christophe HORTOLA 
(Marseille). Tél. :91.73.09.74. 
(après 20 H) 


@ VENDS Thomson 109 : 
moniteur couleur, souris, 
modem, nbx logiciels, (jeux 
+ utilitaires) M. MARSAULT. 
Tél.: (1) 43.606071 après 
20h 


© VENDS pour MOS5,107/70, 
107 + 16K, nombreux jeux : 
5ème Axe, Sortilèges, Aigle 
d'Or, Numéro 10, Androïides, 
et bien d'autres pour 30 F 
pièce. Cherche Mégabus Il 
métal avec extension et 
jeux intégrés. DARTUS Jé- 
rôme (Agen). Tél: 53.96 

39.68 

@ VENDS URGENT 107/70 

(86) + Basic 1.0 + lecteurde 
K7 : Color Paint + ma- 
nettes de jeux + logiciels 
(Green Beret, 3D, Flight, 

etc.) : manuel d'utilisation. 
Le tout 2 500 F. Jean-Fran- 
çois DUCROT (Signy-Signet). 
Tél. : 60.22.27.16. 

@ VENDS jéux sur MOS5 à 
bas prix sur cassettes (env. 
50 jeux) MOS5 bon état : 800 
F, et livres sur MOS5. él : 
39.90.39.71 (vers 19h). 


@ VENDS 109 moniteur cou- 
leur, imprimante PR90 600, 
souris, joystick, cartouche 
Colorpaint, nombreuses re- 
vues prix : 11 000 F à débat- 
tre. Bruno CASTE (Caen). Tél. : 
31.85.71.84. 


@ VENDS nombreuses cas- 
settes de jeux pour MOS et 
107/70 au prix de 110 F 
pièce. lél. : 39.52.42.54 après 
47h. 


© CHERCHE Basic 128 : lec 
teur disquette 107/70. Tél. : 
66.85.8716. 


@ VENDS, ECHANGE prog. 
du commerce pour 35108 
et 109 (Green Beret, Aven- 
ger) bas prix. Christian 
SIAUD. Tél. : 49.32.01 99. 


























@ VENDS 107/70 bon état : 
2 livres éducation Basic : 
2 000 F. Tél. : 48.36.56.24 


@ VENDS pour 109 logiciels 
disquettes 35 (Romulus, 
Sapiens, Las vegas, etc.) : 
150 F à 200 F pièce. Thierry 
FAUDOIT (Lyon). Tél. : 78.58 
86.14. 


@ VENDS MOS : lect. K7 + 
mega bus: 2 000 F. lél.: 
43.36.6349 (PARIS) 


@ VENDS MOS + CrOpt. + 
lep + man. jeux. : modem 
+ megabus : 2 200 F, lect. 
disc. 320 KD : 2 200 F, impri- 
monte qual. courrier + Scrip- 
tor : 2200 F. Le tout plus ca- 
deaux 6 000 F. Tél.: 38.92. 
33.66 (LORRIS). 


@ VENDS MOS5 thomson : 
adaptateur peritel + lecteur 
K7 + jeux 1 Basic. (CO- 
LOMBES). Tél. :(1)47.81.57.22 
après 49h ou le WE 














@ VENDS 107/70 écran HR 
monochrome : clavier 
mécanique ! stylo optique 
+ lecteur de cassettes : 
prise Péritel + Basic version 
1-0, multiples logiciels : 
cassettes vierges oct 86 

sous garantie acheté 5 000 
F vendu 4 000 F. (L'ISLE D'A- 
DAM). Tél. : 34.69.51.39. 


@ VENDS Lansay 64 RAM 
64K ,HGR 672x512,256 cou- 
leurs, son 4 voies, trait. texte 
+ magnéto. Prix: 4 900 F. 
Tél. : 39.81.08.60 (après 19h). 


© VENDS ou ECHANGE pour 
MOS, logiciels + notices : 
jeux 80F l'un. Tél. :98.48.16.76 
(PLOUDALNEZEAU). 


@ VENDS lecteur de disquet- 
tes 107/70-MOS5, 51/4, 320 
Ko - Basic 128 : disquettes 
(environ 30). Le tout: 2 500F. 
Philippe Galais (AUTHON DU 
PERCHE). Tél: 37.49.9015. 














@ VENDS 107/7 clavier mé- 
canique : Basic 1.0 modules 
“Datenverwaltung" et “Scrip- 
tor'”’ en allemand cplt avec 
manuels Nouveau stylo du 
109, lecteur/enregistreur de 
K7 + 5 K7 vierges, des livres 
en allemand. Prix : 2 000 F à 
débattre. Tél.: (19.49.761) 
27.55.82 (RFA). 


@ ECHANGE ou VENDS pour 
109 150 programmes très 
intéressants. Franck LAVIS, 
“Plein Air”,03460 VILLENEUVE 
s/ALLIER. Tél. : 70.43.3247. 


@ VENDS moniteur couleur 
neuf (double emploi) fideli- 
ty CM 15F. Prix : 1 500 F. Tél : 
(1) 64.49.0426 


@ VENDS K7 Empire : 180 F, 
Coliseum: 150 F, L'Aigle 
d'Or::130F, 1815: 160F, ou 
le tout 580F. Tél. : 29.83.95.78. 


@ VENDS MOS5 : crayon op- 
tique + magnétophone 
MOS5 + QDD avec dis- 
quettes : 4 logiciels + ma- 
nettes de jeux : extension. 
Le tout: 14 000 F. Tél.: 
64.49.04 26. 


@ VENDS 107 + extension 
16K + magnéto + Basic + 
Logo + imprimante + jeux 
(environ 15) : manettes. Le 
tout : 2 500 F. Madame Ga- 
tin, 7,rue Charles d'Orléans, 
78540 Vemouillet. 


@ VENDS contrôleur de 
communication, cartou- 
ches “Gérez vos fiches MOS5" 
et “Trapp 107”. Prix soldé. 
Tél. : 40.25 .76.31 


© VENDS ou échange logi- 
ciels pour 107 et 107/70 
(TOULOUSE). Tél.: 61.44 
87.62. 


@MOS5 cherche contacts 
(région parisienne si possi- 
ble) pour échanges divers. 
Téléphoner après 17 h au 
(1) 64.80.9193. 


@ VENDS MOS très bon état 
+ lep + 2 joysticks (avec 
contrôleur musique et jeux) 
+ 4 logiciels : 4 500 F à dé- 
battre. Tél. : (1) 43.32.50 73. 


© CHERCHE correspondant 
pour 109 échange de jeux 
tapés ou programmés ou 
logiciels sortis du commerce 
(StHilaire-lesCambrai). Tél. : 
27.791212. 
































@ VENDS 109 : écran cou- 
leur + imprimante avec cor- 
don : 2 manettes de jeux 
avec interface - 11 dis- 
quettes - 2 logiciels (Aigle 
d'or : Choplifter) : souris : 
crayon optique : Roger et 
Paulo + boite pour ranger 
les disquettes. Prix : 12 000 F 
à discuter. Geraud GRAN- 
GER. Tél. : 16.61.75.7517. 


© CHERCHE contacts Tnom- 
son (108, TO9) et achète 
logiciels jeux pas trop chers 
(pas plus de 75 à 100F pour 
les meilleurs). POIZAT Guy, 
Les Bernards, le Clastre 
26400 CREST. 


© CHERCHE URGENT lecteur 
de disquettes 80K 107/70 
pour disquettes 5 pouces 
4/4. Xavier BATISSE (Vénis- 
sieux) Tél. : 72.50.63.16. 


@ Possesseur 109 CHERCHE 
contacts pour échange 
trucs et programmes . Ecrire 
à Bruno LAFON, 18, bld Saint- 
Pierre, 68000 COLMAR. 


@ ACHETE pour MOS5 adap- 
tateur Péritel. + crayon op- 
tique : interface joystick. 
Meilleure offre le tout ou 
séparément CANTARANO 
Franz. Tél. (1) 48.84.2695. 


@ VENDS pour 107/70 de 
nombreux logiciels de jeux 
(Eliminators, Androïds, Pingo, 
Las Vegas 1-2-3 et une di- 
zaine d'autres) Envoi possi- 
ble par la poste à prix très 
bas. Jean-Pierre GARNIER 
(Saint-Paul-de-Varax). Tél.: 
74.30.3268. 


@ VENDS MOS5, LEP, crayon 
optique, câbles extension 
musique et jeux, 1 manette 
Pictor, Aigle d'Or, Karaté, Lo- 
rann, Vera Cruz, 1000 F. Er- 
wan MACE. lél: (1) 45.26. 
26.90. 


@ VENDS TO9 (oct. 86) écran 
couleur, crayon interface 
deux manettes jeux, logi- 
ciels, lecteur de cassettes, 3 
livres, le tout 12 000F,vendu 
9 500 F, à débattre. François 
BAR (Cambrai). Tél. : 27.83. 
2015. 


@ VENDS 107 EXT 16K, cla- 
vier mécanique : 600 F. Bud- 
get, Compte chèques, Sur- 
vivor : 300F. Serge CHEVALIER 
(Roncq). Tél. : 20.03.08.67. 


























© RECHERCHE extension mu- 
sique et jeux pour 107/7 
URGENT Xavier DELATTRE 
(Bondues). Tél. : 20.23.09.75 
(après 18 h). 

@ CHERCHE possesseurs de 
MO5 ou de MO6 pour 
échange de logiciels (Top 
Chronosapiens, Aigle d'Or, 
Lorane, Blue War, Vol Solo). 
Pascal BOURDON (St Na- 
zaire). Tél: 46.84.8618. 


@ VENDS 107 : Basic 10 : 
crayon optique : manuel. 
Prix à saisir: 950 F; 2 ma- 
nettes : extension musique 
et jeux: 300 F; extension 
16K : 350 F; Pictor: 220 , ou 
le tout à 4 800 F. Christophe 
FROISSAC (Pamiers). Tél. : 
616713.31. 


@ VENDS 107/70 clavier mé- 
canique Basic 1.0, Lep, mo- 
niteur couleur 3 000 F, jeux 
et livres choix et prix à dé- 
battre. Patrick VANDROME 
(Rennevilliers). Tél.: 47.94. 
32.22 


@ VENDS coffret MOS, cla- 
vier méc. année 86, peu ser- 
vi:1 800 F : 18 logiciels (Ar- 
cades, Educatifs, Stratégie) 
au choix de 100 à 300 : 
extension manettes jeux : 
400F, Hugo AMBIBARD (Mon- 
targis). Tél.: 30.93.24.89. 


@ ACHETE logiciels 107/70 
QDD ou cass Héritage 2, 
Sortilèges, Vera Cruz, Geste 
d'Artillac. Jean-Pierre PELERIN 
(Aubenas). Tél: 75.93.34.87. 


@ VENDS 107/70 + cartou- 
che Basic 1.0 + “Gérez vos 
fiches” + imprimante ther- 
mique : livres. Le tout pour 
1 000 F. Fabrice MAN (No- 
za). lél.: 64.49.04.26. 


© VENDS logiciels TO9 : Su- 
per Business : 180 F ; Las Ve- 
gas: 130 F; Mandragore : 
430 F + cassettes 107/109 
D. Boerhaave : 80 F, frais de 
port en plus. Sylvain BRAUD 
(Montpellier). Tél : 67.54. 
42.54. 


© VENDS 107/70, clavier mé- 
canique, cartouche Basic 
1.0, extensions musique et 
jeux avec 2 manettes. Patri- 
cia THIRIEL (Vanves). Tél. :(1) 
46.84.7000 poste 7616. 


@ VENDS 107/70O (clavier 
méco.) disquette 320 K, im- 
primante PR 90.582, LEP, ma- 
nettes jeux, 30 DSK, livres et 
revues tech. Le tout 5 500 F 
ou par lots. François HUE 
(Longyvic). Tél.: 80.66.7212. 


@ VENDS moniteur mono. 31 
cm (500 F), lecteur dis- 
quettes ss. cont 80 KO 
(1000F), clavier méca 
(300 F), cartouches : Scriptor 
(200F); Gérez vos fiches 
(200 F); Pictor (100F) : Ba- 
sic 4.0 (100 F), 2 cont. com- 
munic. (300F), ou le tout 
2 500F : 1 log. K7. Jean-Mi- 
chel BIHET (Soissons). Tél. : 
23.74.51.72 (après 18h). 


© VENDS 109 écran HR cou- 
leur, crayon optique, ma- 
nuel 109 : 2 manettes, 2 
disquettes d'init. lecteur de 
cassettes, très bon état : 14 
jeux le tout 8 000 F à débat- 
tre. Claude DELIDAIS (Ivry) 
Tél. :(1) 46.58.2170. 
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AVANT 
PREMIERE 


Les Passagers 
du vent - 
L'Heure du serpent 





Nous retrouvons Isa, Hoël, 

Boisboeuf et quelques-uns des 
nombreux héros de la bande dessinée 
de François Bourgeon pour de 
nouvelles aventures. 





Nous nous sommes extasiés 

sur les graphismes de la première 
| partie, cette suite est tout aussi 

magnifique. 





L'histoire reprend au IVème tome 

de la BD avec, cette fois, la possibilité 
d'apprécier tous les écrans sans avoir 
forcément réussi chaque épisode de 
l'aventure. 
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Felonies 


Comme souvent, pour ne pas dire 
toujours, le trône de mon Seigneur et 
Maître est convoité par ses voisins. De 
plus, la majeure partie des hommes lui 
ayant fait allégeance l'ont bien entendu 
trahi à la première occasion au profit de 
vils ennemis. Vous voulez la suite ? La 
voici. 

Le seul à être resté fidèle au bon roi se 
trouve être votre serviteur ! Me voici donc 
pourvu du parfait attirail du petit 
guerrier, chevauchant un superbe destrier 
à la poursuite des odieux félons. Vous 
avez dit maso” ? J'approuve.. 

Si le graphisme peut surprendre par sa 
pauvreté, le scénario, quant à lui, est sans 
surprise. Je ne rêve plus que d'une chose : 
faire la Brute et le Truand. Et vivent 
félons et dragons. 


ED LCEICTIT ET TTMENEEN 





etats BRON STE FELONIES 
Ere Informatique 
A Aventure 





Silent Service 


Sorti il y près d'un an sur Commodore 64, 
Silent Service fait son apparition sur des 
machines aussi diverses que l'Atari ST, les 
compatibles PC ou l'Apple. 

Le voici adapté au Thomson. Bien que son 
graphisme ne soit pas à la hauteur de 
celui de certains de ses prédécesseurs, la 
qualité de la simulation sous-marine est, 
quant à elle, bien là : stratégie, rapidité 
d'évolution, réalisme du submersible, etc. 
Dans une première étape, le logiciel offre 
une période d'apprentissage à la 
manoeuvre et au tir. Ces disciplines étant 
acquises, c'est l'affrontement contre de 
faux Japonais au cours de cinq types de 
combat différents. Au cours de la 
troisième étape, le joueur est enfin 
plongé dans une “vraie” traque en temps 
de guerre. 
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Six écrans, de la vue périscopique à la 
Salle des machines, en passant par la 
table à carte, permettent de visualiser la 
totalité du submersible et d'accentuer, de 
ce fait, le réalisme de la simulation. 





MIRE ant SILENT SERVICE 
EMNIEUR 550. ei Micro Prose 
GENRE...) Stratégie, simulation 
NUE PS FÉRRPR SRI PRE LUE Lu Eur 
GRAPHSME: Ses a Ses 
MATERIEL ....... Toute la gamme 

Thomson 
SUPPORT . . ... cassette et disquette 
PRIE OT AES 145 Fet 195 F 


Missions en rafale 


Missions en rafale est un simulateur de 
vol et de combat aérien. A la base, l'alerte 
vient d'être déclenchée. Vous sautez dans 
votre avion intercepteur. Décollage 
immédiat... Tous les cadrans nécessaires 
au fonctionnement de l'appareil sont 
visualisés sur un seul écran (altimètre, 
tachimètre, vitesse ascensionnelle, 
puissance, fuel, aérofrein et trains 
d'atterrissage). Trois témoins de panne 
viennent s'ajouter aux cadrans : altitude, 
pompe hydraulique et huile. La partie 
supérieure de cet écran donne une vue de 
l'horizon. Enfin, une fenêtre s'ouvre sur 
un radar à trois positions: navigation, 
combat et approche. 

Poussez à fond la manette des gaz en 
position post-combustion. Vers 180 
noeuds, tirez le manche à balais, cabrez 
l'appareil et montez jusqu'à 20 000 pieds 
pour reprendre ensuite une assiette 
horizontale. Réduisez les gaz en 
maintenant une vitesse d'interception de 
l'ordre de 600 noeuds. Le pilote commute 
le radar de combat dès que l'ennemi a été 
repéré. La chasse commence alors 
vraiment. Les deux manettes de jeu sont 
nécessaires au pilotage, l'une pour les 
gouvernes, l'autre pour les gaz et le tir. 
Quatre touches du clavier commandent le 
train d'atterrissage, les freins, les 








aérofreins et la fenêtre de navigation. 
Premier simulateur de combat aérien sur 
Thomson, Missions en rafale est une 
réalisation de qualité équivalente à celles 
que l'on trouve sur d'autres micro- 
ordinateurs. Il propose trois modes de 
jeu, l'atterrissage, le combat, et la mission 
qui englobe les deux premiers, et deux 
niveaux. Le niveau professionnel permet 
aux chasseurs ennemis des manoeuvres 
plus serrées. Les amateurs de simulation 
de combat aérien y trouveront leur 
compte. 


WIRE: Re MISSIONS EN RAFALE 
EDMEUR ET OT ue 
GENRE TT Simulation de vol 
INTERNET. se Re RE ete te Role 
GRAPHISME: 510 See ra 
MAIRES Toute la gamme Thomson 
SUPPORT ..... cassette et disquette 
PRO ME NET en Pere 145 et 195F 


Dom Camillo 


A moins de ne pas avoir tout découvert 
de ce nouveau jeu d'arcade, je peux 
affirmer que la référence à la série 
célèbre des Dom Camillo est simplement 
fortuite. Ou alors il y a là un raccourci osé 
où Fernandel, alias Dom Camillo, et 
Peppone, alias Gino Cervi, servent 
simplement de prétexte pour représenter 
les anges et les diables. D'ailleurs, dans le 
jeu, les anges sont blancs et les diables 
rouges. 

Le but du jeu est d'essayer de faire un 
maximum de points en faisant allumer 
des cierges par un ange tout en évitant 
les facéties des diables dont les fourches 
font disparaître un ange plus vite qu'une 
messe de requiem. L'action se déroule 
dans un château type médiéval, façon 
Robin des Bois, et le joueur, aux anges, 
dirige cet être asexué vers les cierges en 
évitant les nuages et les diables. 

Dans l'exploration du jeu, je n'ai découvert 
que quatre tableaux avant de revenir à 
l'extérieur du château et de 
recommencer. Ses voies sont sûrement 
impénétrables. A côté de l'originalité du 
titre et du thème, on retient une 
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excellente qualité graphique et une 
animation efficace. A choisir je préfère la 
série filmée, mais à défaut on peut passer 
quelques bons moments. 





MRESÉ ae ET DOM CAMILLO 
EDIEUR: LES, Free Game Blot 
GENRE . 51504 SOS TEA UET Arcade 
NIEREE : in 4 See ca a 
GRAPHISME :. SRE SA CHE. 
MATERIEL 30 TO8, TO9, TO9+ 
SUPPORT ..... cassette et disquette 
PR D RSS te an 120 F et 165F 
Duel au Colorado 


1874, au coeur de l'Utah dans l'Ouest 
américain. Bob, un cowboy solitaire, arrive 
en vue de Ghost-City, monté sur une 
vieille carne. En fouinant dans les diverses 
bâtisses de la ville fantôme, il découvre le 
matériel nécessaire à la poursuite de son 
équipée. Ghost-City est, en effet, un 
véritable super-marché: des balles, un 
fusil, une gourde, du whisky, une pelle... et 
même un tiroir-caisse lui tendent les bras. 
Chez le shérif, une affiche vante les 
mérites de Basic Killer, recherché mort ou 
vif. 

Après une bonne sieste, il essuie le tir du 
fantôme de la ville, puis part vers le nord. 
A quelques miles s'ouvre devant lui le 
gigantesque canyon aperçu au loin. Il s'y 
engouffre. C'est le repaire d'un vieil 
ivrogne chez qui il trouve la clé de 
l'imprimerie de Ghost-City dans laquelle il 
n'avait pu pénétrer. Bob y trouvera le 
lasso nécessaire à la capture d'un superbe 
étalon noir. Au sud de Ghost-City 
s'étendent de vastes plaines où paissent 
de fabuleux troupeaux de bisons. C'est là 
que vivent les indiens Shoshones. 

Duel au Colorado est un jeu d'aventure 
pour débutant. Outre ses qualités 
graphiques peu abouties, son dictionnaire 
est pauvre. Par exemple, pour utiliser le 
fusil, seule la commande TUE déclenche le 
tir. Arme, vise, épaule, tire eussent été 
meilleurs. Il en est malheureusement de 
même pour les autres commandes qui ne 
répondent qu'à un seul terme. 
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Elsa DUEL AU COLORADO 
EDITEUR 2 Ses ent Ch 
GENRE‘: 07 , Aventure 
INTERET = ere sh 
GRAPHISME: 34e use ie 
MATERIEL Toute la gamme Thomson 
SUPPORT 5. Tr ST assette 
PRICES RE Dee TE 160F 


@risp 


Qrisp est un jeu d'arcade à mille lieues de 
renouveler le genre. Lent, au graphisme 
peu attrayant, et au scénario insipide, il 
n'est même pas ‘qrispant”. Son 
propriétaire charge le jeu pour la 
première fois, va du premier tableau au 
deuxième, puis passe au troisième, mais 
très vite se pince. C'est cela qu'il a 
acheté? De tels programmes, il en a 
souvent croisé dans les pages de 
programmes de revues spécialisées. De la 
part de Ere Informatique, c'est étonnant. 
Il paraît que certains aiment, alors. 








LIBRAIRIE 


Jeux d'action MO5 
MO6 
P. MONSAUT 


Pour 58 F, vous aurez une centaine de 
pages de programmes de jeux. C'est en 
effet ce que contient ce livre qui, en dix- 
huit programmes, couvre quelques 
aspects de l’activité ludique sur MOS et 
MO6. 

Pour ces jeux, rien de bien nouveau : 
simplement des listings de Basic de trois 
ou quatre pages maximum accompagnés 
d'un très court texte de présentation, et 
rien d'autre. On retrouve dans ce fascicule 
le jeu de squash, la DCA, le casse-briques, 
ou encore le parachute. Au total, dix-huit 
jeux qui utilisent les capacités graphiques . 
et d'animation des deux machines 
Thomson. Dans l'avant-propos, il est bien 
dit que l'adaptation de ces jeux à d'autres 
matériels serait difficile. C'est 
encourageant pour tous ceux qui se 
seraient lancés dans une adaptation pour 
TO7, 8 ou 9, ou bien d'autres machines. 
Ce livre aurait-il des frères en gestation ? 
En tout cas, même s'il est intéressant de 
savoir enfin comment fonctionne un jeu 
de grand prix, il aurait été didactique de 
placer des commentaires ou des 
explications sur les techniques utilisées et 
sur la programmation. Rien de tout cela. 
Ce livre destiné aux jeux est bien sec ! 
SYBEX, 58 F 





Images numériques 
J.B. TOUCHARD 


Voici un livre agréable et passionnant. 
Entièrement consacré aux images 
numériques et aux techniques d'obtention 
et de restitution, cet ouvrage fait 
découvrir de multiples aspects d'un 
domaine en plein essor et dont nos 
écrans divers devraient être les supports 
privilégiés. 

On trouve pratiquement tout sur le sujet 
dans les trois cents et quelques pages du 
livre. On apprend et on découvre le 
vidéotex, des rappels de géométrie bien 
nécessaires, les objets graphiques (depuis 
les droites jusqu'aux courbes de Beziers 
ou les splines), les objets en 3D. On trouve 
ensuite un chapitre passionnant sur les 
objets fractals (flocons, arbres et surfaces 
fractales simulant les massifs) avec des 
explications convaincantes, des 
développements théoriques limités et 
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surtout des programmes Basic pour 
illustrer les propos. 

Les autres chapitres portent sur la saisie 
des objets graphiques (le matériel), le 
traitement de ces objets avec les 
traitements analytiques, les parties 
cachées et les perspectives et enfin les 
matériels de restitution de toutes ces 
splendides images comme les différents 
types de gestion vidéo, les écrans 
vectoriels et même les hologrammes. 

Ce livre est une mine d'informations, il est 
bien illustré, facile à lire et, même s’il 
n'est pas exhaustif, il a le mérite de 
donner envie d'en savoir encore beaucoup 
plus. Je recommande particulièrement cet 
ouvrage. 

CEDIC-NATHAN, 240 F 


Apprendre à 
programmer : 
niveau 2 


D. DIEUDONNE, R. 
DELHAYE et R. VIGREUX 


savoir & savor fare 


APPRENDRE 





Dans le tome | de ce même ouvrage, les 
auteurs avaient montré l'importance de 
l'algorithmique et des structures 
élémentaires de contrôle. Suite logique du 
premier tome, cet ouvrage reprend de 
façon plus approfondie encore les 
structures de contrôle, les procédures, 
concept essentiel de la programmation 
modulaire, les notions associées de 
variables locales et globales et de 
paramètres effectifs et formels avec les 
possibilités en Basic, Logo et LSE. 
L'ouvrage s'attaque ensuite aux 
structures de données, et notamment 
aux fichiers de données. Pour introduire le 
sujet, les auteurs consacrent quelques 
pages aux modes de gestion des données 
et à leur programmation selon les 
langages. La partie savoir-faire propose 
un ensemble d'exemples et d'exercices 
organisés par thème comme le tri et le 
classement, les fichiers séquentiels en 
Basic et les fichiers à accès direct. On 
trouve ainsi des programmes de transfert 
de fichier séquentiel de cassette à 
disquette et inversement, les manières 
d'ajouter ou de supprimer un 
enregistrement sur un fichier séquentiel, 
un exemple de gestion de fichiers en 
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Basic, LSE et Logo. Pour chaque 
programme il y a le cahier des charges, 
l'organisation des données et des actions, 
le codage en Basic, en LSE et en Logo. A 
ce propos on regrette la mauvaise qualité 
de transcription des programmes Logo 
qui sont parfois difficiles à déchiffrer par 
un mauvais fac-similé. 

Tout comme le premier tome, cette 
deuxième livraison est particulièrement 
bien réussie. La pensée est claire, les 
objectifs précis et l'approche pédagogique 
efficace. 

CEDIC/NATHAN 


CD ROM : 
le nouveau Papyrus 


Le disque Laser connaît un succès 
extraordinaire et propose un renouveau 
complet de la reproduction 
audiophonique. Le CD ROM c'est 
justement l'usage informatique de ce 
nouveau support, disque à lecture optique 
par laser d'où la désignation de CD 
(Compact disc) et de ROM car il permet 
par sa nature digitale de stocker toutes 
sortes d'informations dont celles utilisées 
par les moyens informatiques. Ce livre est 
une collection d'articles passionnants qui 
font le tour complet du sujet. 

Tout d'abord une description du système 
CD pour bien fixer les idées techniques et 
les capacités fabuleuses offertes (mille 


fois une disquette), la gestion du CD ROM 


et des fichiers, les logiciels de recherche, 
la production de CD ROM et les 
possibilités multimédia, la prise en 
compte de ce nouveau support dans la 
formation et les stratégies de scénarios. 
On trouve aussi des articles sur l'édition 
(quel marché!) et les applications 
nombreuses du CD ROM. Au total plus de 
400 pages d'informations et de 
renseignements sur ce nouveau support 
dont les développements ne sont 
qu'esquissés et qui doivent ouvrir une 
nouvelle voie à la fois à la micro 
informatique et aux futurs systèmes 
domestiques de gestion intégrée (son, 
image, texte) de l'information. 
Superbe livre qui fait le point pour tous 
ceux qui ne veulent pas rater cette 
nouvelle frontière technologique. De quoi 
attendre la prochaine révolution par les 
ROM à très haute densité! 
CEDIC NATHAN 

Lionel Simon 
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«ll y a des sag À. 
qui ne se racontent pas, 
elles se vivent!» 


Le logiciel 
avec la BD). 


pour 10770 T HMOMSON 


DISPONIBLES PRIX VALABLE 
DANS TOUS LES JUSQU'AU 
CONFORAMA. 


21 JUIN 1987. 
Le pays où la vie est moins chère. 





“LES PASSAGERS DU VERT 2. 
Ji HEURE DU SERPENT 


d'aprés E Bourgeon 











Licence 


e Gé rat 


Disponible sur THOMSON cassette et disquette, 


AMSTRAD cassette et disquette, 
ATARI ST, MSX2, IBM PC et compatible, 
AMSTRAD PC 1512. 
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